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Abstract  of  Dissertation  Presented  to  the  Graduate  Council 
of  the  University  of  Florida  in  Partial   Fulfillment  of  the 
Requirements  for  the  Degree  of  Doctor  of  Philosophy 

A  SOLUTION  TO  THE  SCHWINGER-DYSON  EQUATIONS 
OF  QUANTUM  ELECTRODYNAMICS 

By 
Joan  F.   Cartier 

Chairman:     Charles  E.   Reid 
Major  Department:     Chemistry 

A  non-perturbative  solution  to  the  unformalized  Schwinger-Dyson 
equations  of  Quantum  Electrodynamics  was  obtained  by  using  combined 
analytical  and  numerical   techniques.     The  photon  propagator  is  approx- 
imated by  its  form  near  the  mass  shell.     The  vertex  equation  is  cut  off 
at  the  second  order  in  the  coupling  constant  and  the  remainder  is 
approximated  by  H.   S.   Green's  generalization  of  the  Ward  Identity  for 
higher  order  diagrams.     Under  these  approximations  a  functional  form 
for  the  electron  propagator,  S(p),  and  the  vertex  function,  ry(p,p+K) 
was  obtained  for  all  magnitudes  of  momenta.     Both  functions  were  found 
to  be  finite.     No  infinities  were  subtracted  to  obtain  the  solutions. 


CHAPTER  I 
INTRODUCTION 

A  physical  theory  must  furnish  an  accurate  description  of  observable 
quantities.  Beyond  this  supreme  requirement  a  physical  theory  is  judged 
by  its  simplicity  and  ease  of  comprehension.  Another  important  measure 
of  a  theory  is  how  widely  the  approach  could  be  applied.  There  is  a 
sense  of  a  theory  being  more  truthful  if  it  is  applicable  to  more  than 
a  single  subject.   If  the  same  approach  can  be  applied  to  several  diverse 
problems  then  the  problems  lose  their  diversity.  To  be  a  really  success- 
ful theory  it  needs  to  be  one  that  unifies  a  broad  spectrum  of  ideas. 

Quantum  Electrodynamics  (Q.E.D.)  has  been  a  successful  theory  to 
the  extent  that  it  enjoys  a  number  of  these  characteristics.  One  of  its 
attributes  is  that  the  theory  had  its  beginnings  in  the  bringing  together 
of  several  separate  fields  of  study.  This  unification  formed  Relativ- 
ists Quantum  theory  and  then  as  a  natural  extension  the  study  of  dynam- 
ics of  the  interaction  of  particles  with  electromagnetic  radiation 

evolved. 

Quantum  Theory  (Q.T.)  was  developed  in  the  1930's  from  the  ideas  of 
wave  mechanics.   It  accomplished  the  explanation  of  atomic  structure, 
molecular  structure,  the  structure  of  solids  and  the  synmetry  and  energy 
bands  of  crystals.   However,  Q.T.  was  insulated  from  the  effects  of 
special  relativity  in  all  these  endeavors  because  the  ordinary  effects 
of  chemistry  arise  from  interactions  with  only  the  outermost  part  of 
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the  atom.     The  calculation  of  reaction  rates,  surface  potentials  or 
scattering  cross  sections  requires  a  detailed  description  of  only  the 
outermost  electrons  which  require  relatively  low  energies  to  excite. 
Relativistic  corrections  represent  a  very  small   fraction  of  these  cal- 
culations. 

Successful   as  Q.T.  was  at  describing  in  terms  of  fundamental 
principles  the  workings  of  chemistry,  it  represented  a  break  in  the 
general   pattern  of  explaining  physical   phenomena  because  it  had  not 
incorporated  the  principles  of  special   relativity.     Quantum  Theory 
needed  to  be  formulated  in  a  Lorentz  covariant  form.     The  relativistic 
descendant  of  Schrodinger's  equation  is  the  Klein  Gordon  equation. 
This  equation  allows  for  the  relativistic  variation  of  mass  with  the 
velocity  of  the  particle.     However  such  effects  as  the  fine  structure 
of  the  hydrogen  atom  were  only  partly  accounted  for  by  the  relativistic 
Q.T.   of  Schrodinger.     It  took  Dirac's  work  on  the  fully  relativistic 
theory  of  particles  with  spin  1/2  to  complete  the  analysis  of  the  fine 
structure  and  to  explain  the  Zeeman  effect. 

A  complete  description  of  the  relativistic  electron  would  have  to 

include  the  interaction  of  the  electron  with  its  own  electromagnetic 
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field.      Feynman     and  Schwinger     formed  calculational  methods  in  Q.E.D. 

3 
in  two  separate  mathematical    languages.     Dyson     demonstrated  these 

languages  were  equivalent.     As  early  as  1930,  Waller,  Weisskopf  and 
Oppenheimer     had  calculated  the  self  energy  of  the  electron  and  found 
it  to  be  disappointingly,  quadratically     divergent.     Later  Weisskopf 
established  that  the  divergencies  were  only  logarithmic.     These  inex- 
plicable divergencies  that  occurred   in  the  calculation  of  measurable 


quantities   (though  at  the  time  such  measurements  were  not  practically 

feasible),   held  the  theory  in  a  quandary  for  quite  a  while. 

5 
Real   impetus  was  given  to  Q.E.D.   when  Lamb  and  Retherford     succeeded 

in  measuring  the  splitting  between  the  2Sp  and  the  2?j  energy  levels 
of  the  hydrogen  atom.     Acting  on  a  suggestion  of  Lamb's,  Bethe     circum- 
vented the  divergence  problem  by  simply  cutting  off  the  range  of  inte- 
gration over  the  divergent  integrals.     Surprisingly,  Bethe  came  up  with 
a  wery  close  calculation  of  the  "Lamb  shift,"  as  it  has  come  to  be  known. 

Other  attempts  were  made  at  trying  to  eliminate  the  divergencies  in 

29 
a  more  rigorous  manner.     Schwinger  and  Tomonaga       developed  the  first 

Lorentz  covariant  scheme  designed  to  make  the  elimination  of  the  diver- 
gencies more  acceptable.      But,  by  whatever  the  justification,  calcula- 
tions in  Q.E.D.    have  enjoyed  remarkable  practical   success.     Because  of 
the  small   coupling  constant  for  the  electromagnetic  interaction,  per- 
turbation techniques  have  resulted  in  impressive  calculations  of  exper- 
imental  values  of  the  Lamb  shift,  separation  of  the  ground  state  doublet 
of  positronium,  the  hyperfine  structure  of  the  hydrogen  atom,  the  line 
shape  of  emitted  radiation  in  atomic  transitions  and  other  relativistic 
but  measurable  phenomena. 

The  road  which  connects  Quantum  Theory  with  special   relativity 
leads  to  the  theory  of  Quantum  Electrodynamics.     The  road  continues  on 
today  to  connect  Q.E.D.  with  further  frontiers.     Quantum  Electrodynamics 
has  become  a  model   for  other  field  theories.     An  appreciation  of  the 
special    role  of  Q.E.D.    is  one  way  to  provide  for  a  better  understand- 
ing of  the  mathematical   structure  of  field  theories  in  general.     The 
recent  success  of  the  Non-Abelian  gauge  theories  in  unifying  the 


electromagnetic  interaction  with  the  weak  interaction  further  motivates 
efforts  to  understand  the  ambiguities  of  Q.E.D.     The  current  theories  of 
electro-weak  and     strong  interactions  have  been  shown  to  have  the  same 
underlying  structure  based  on  assumptions  about  global  and  local   invar- 
iance.     The  unification  has  its  dark  side  since  as  a  part  of  the  bargain 
comes  the  problem  of  the  divergencies 

It  is  apparent  that  Q.E.D.   sits  as  a  bridge  between  many  well- 
travelled  roads  of  thought.     This  is  why  it  is  particularly  frustrating 
that  the  theory  should  be  flawed  by  unnatural   infinities  which  rear  up 
in  the  evaluation  of  physically  observable  quantities.     If  it  were  a 
complete  and  satisfactory  theory  they  should  never  have  occurred. 

There  are  four  different  kinds  of  divergencies.     The  following 
classification  of  them  has  been  paraphrased  from  the  text  by  Janch  and 

Q 

Rohrlich, 

(a)  divergencies  associated  with  the  description  of  the  vacuum 

(b)  infrared  divergencies 

(c)  divergencies  associated  with  closed  loops 

(d)  serious  divergencies. 

The  type  (a)  occurs  only  in  the  form  of  a  phase  factor  multiplying  a 
particle  amplitude.  Since  this  does  alter  the  probability  density  it 
can  have  no  observable  effect.  It  is  possible  to  ignore  type  (a) 
divergencies.  Type  (b)  is  an  artifact  of  the  mathematical  procedure. 
An  analysis  of  the  problem  has  shown  it  can  be  eliminated  by  an  improved 
mathematical  treatment.  Type  (c)  is  associated  with  the  photon  self 
energy.  This  type  of  divergence  has  been  handled  by  invoking  the  invar- 
iance  of  the  theory  under  gauge  transformations.  Type  (d) ,  the 


"Serious"  divergencies,  comes  up  in  the  calculation  of  the  vacuum  polar- 
ization, electron  self  energy  and  the  vertex  function.  These  serious 
divergencies  are  the  object  of  this  whole  discussion. 

The  redressing  of  these  infinite  quantities  is  called  Renormaliza- 
tion.  In  this  process  the  amplitudes  are  expanded  in  a  power  series  of 
the  coupling  constant.  Many  terms  in  the  series  may  contain  divergent 
integrals.  It  is  possible  to  remove  these  infinities  in  a  relativisticly 
covariant  way  by  redefining  the  parameters  of  mass  and  charge.  The 
finite  terms  which  remain  in  the  series  are  taken  to  be  the  renormalized 
expressions  for  the  amplitudes.  Renormalization  is  neither  simple  nor 
straightforward.  It  brings  in  a  new  and  complicated  set  of  rules  which 
are  not  properly  anticipated  by  the  initial  understanding  of  the  problem. 
Renormalization  is  an  after  the  fact  reaction  to  something  unforeseen  and 
undesirable.  This  leaves  two  possible  interpretations  of  the  problem: 

(1)  There  is  something  wrong  with  the  basic  theory  of  Q.E.D. 

(2)  Some  mathematical  procedure  has  been  inappropriately  applied. 
A  new  method  of  calculation  must  be  tried. 

It  is  hard  to  argue  that  there  is  something  wrong  with  the  founda- 
tions of  the  theory.  Q.E.D.  has  enjoyed  a  huge  practical  success  in 
calculating  various  physical  measurements.  For  example,  from  renormal- 
ized perturbation  calculations  of  the  anomolous  magnetic  moment  of  the 

electron  the  following  results  for  the  inverse  of  the  fine  structure 
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constant  were  derived: 

-  ■  137.03549(21). 


•  TO 
Presently  the  best  experimental  value  is 

-         .,  =  137.03604(11). 
a  exptl 

It  would  seem  that  there  could  be  little  wrong  with  a  theory  that  makes 
such  accurate  predictions. 

The  unqualified  success  of  Q.E.D.   in  calculating  (by  whatever  means) 
precise  experimental   results,  and  the  success  Q.E.D.   has  enjoyed  in 
linking  quantum  theory  to  special   relativity,  and  its  position  central 
to  general   unifying  theory  of  forces  are  forceful  evidence  that  the 
fundamentals  of  Q.E.D.   are  sound. 

The  implication  therefore  must  be  that  some  mathematical  procedure 
has  been  inappropriately  applied.     The  response  to  this  implication  has 

been  a  long  search  by  many  persons  for  a  self-consistent  and  finite 

1? 
approach  to  Q.E.D.     In  1954,  Gell-Mann  and  Low      sought  to  demonstrate 

that  the  renormalizing  constants  which  relate  the  bare  mass  and  charge 
are  infinite.    They  found  they  couldnotrule  out  the  possibility  of  infin- 
ite coupling  constants  but  they  isolated  a  necessary  condition  for  the 

13 
vacuum  polarization  to  be  finite.     Johnson,  Baker  and  Willey      took  up 

the  interesting  problem  in  a  long  series  of  papers.     Under  a  certain 
set  of  approximations  they  solved  for  the  renormalizing  constants  and 
concluded  that  in  order  for  the  self  energy  of  the  electron  to  be  finite, 
the  bare  mass  of  the  electron  must  be  zero  and  a  special   gauge  must  be 
used.     These  results  spawned  interest  in  a  number  of  people       for  find- 
ing asymptotic  but  non-perturbative  evaluations  of  the  self  energy  of 
the  electron,  the  vertex  function  and  the  vacuum  polarization. 
Chapter  III  will   describe  the  paper  in  which  the  author  was  involved  in 


some  of  the  effort  of  repeating,  in  a  new  way,  the  determination  of  the 
electron  self  energy.     The  work  reaffirmed  the  results  of  Johnson, 
Baker  and  Willey  by  using  an  inventive  non-perturbative    approach  of 
H.   S.   Green's  with  less  restrictive  approximations  than  had  been  used 
before.     This  work  extended  the  results  of  Johnson,  Baker  and  Willey  by 
finding  a  complete  solution  instead  of  an  asymptotic  one. 

These  three  basic  functions,  the  electron  propagator,  the  vertex 
and  the  photon  propagator  are  identified  by  their  role  in  the  three- 
linked  nonlinear  integral  equations  known  as  the  Schwinger-Dyson  equa- 
tions.    It  is  of  great  interest  if  a  method  of  solution  could  be  found 
which  would  yield  no  divergent  function  forms  for  the  three  basic  func- 
tions.    Encouraged  by  the  success  of  Green's  method  in  extracting  a 
finite  solution  for  the  electron  propagator,  we  decided  to  see  if  the 
same  non-perturbative  procedure  of  H.   S.   Green  would  work  to  provide 
a  vertex  function. 

The  description  of  the  project  is  arranged  in  the  following  way. 
Chapter  II  is  a  general  description  of  the  overall  method  of  taking  the 
nonlinear  linked  integral   equations  and  transforming  them  into  a  set  of 
differential   equations.     An  outline  is  given  of  the  proposed  method  for 
solving  the  equations  for  the  electron  propagator  and  the  vertex. 
Chapter  III  provides  a  description  of  the  electron  propagator  solution. 
Chapter  IV  provides  a  preparation  of  the  differential   equations  for  the 
vertex  function.     The  tensor  equation  is  broken  down  into  eight  linked 
third-order  differential   equations  for  the  eight  scalar  functions  which 
comprise  the  transverse  part  of  the  vertex.      In  Chapter  V  an  algebraic 
technique  is  described  which  makes  the  product  of  the  complicated  gamma 


matrix  function  easier  to  obtain.     In  Chapter  VI,  Green's  method  is  used 
to  obtain  an  approximate  solution  to  the  eight  linked  differential 
equations.     In  Chapter  VII  this  solution  is  tested  and  its  range  of 
applicability  is  defined.     In  Chapter  VIII  some  alterations  are  made  to 
the  solution  which  extends  its  viability.     The  last  chapter  summarizes 
the  solutions  which  were  obtained  to  the  Schwinger-Dyson  equations. 
It  is  felt  that  the  work  described  here  will  contribute  to  the 
idea  that  Q.E.D.   is  a  complete  and  satisfactory  theory;  a  theory  which 
is  a  faithful   rendition  of  experimental   results,  a  theory  which  lends 
clarity  by  unifying  several   fields  of  study,  and  a  theory  which  is 
unambiguously  expressed. 


CHAPTER  II 


THE  GENERAL  PROCEDURE  FOR  THE  SOLUTION  OF  THE  SCHWINGER- 
DYSON  EQUATIONS  OF  QUANTUM  ELECTRODYNAMICS 


2-1     Schwinger- Dyson  Equations 

Quantum  Electrodynamics  is  a  description  of  the  interaction  of 
light  with  matter.     A  classical  charged  particle  generates  an  electro- 
magnetic field  around  it  with  which  it  can  self  interact.     Calculations 
of  this  interaction  have  traditionally  led  to  infinities.     To  demonstrate 
how  these  infinities  arise  in  Q.E.D.,  it  is  convenient  to  express  the 
theory  in  terms  of  the  propagators  of  the  particles. 

The  amplitude  of  an  electron  at  some  point  in  space-time  is  related 
to  its  amplitude  at  a  different  point  in  space- time  by  its  Feynman 
propagator  or  Green's  function.     The  Green's  function  is  determined  by 
the  equation  of  motion  that  governs  the  wave  function.     For  the  free 
electron  the  differential  equation  is 

(i?  -  m)Y  =  0  (2-1) 

where  7  is  a  shorthand  notation  for  yy-^T    and  yU  i5  a  Dirac  9amma 
matrix. +     The  photon  wave  equation  is 

DA^-0  (2-2) 

where  Q   is  the  D'ALambertian,  — 9-~ -9—  '     The  propagator     for  the 

a  x  a  xy 


^See  Appendix  A  for  representations  of  the  yv . 
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electron  satisfies  a  corresponding  equation, 

(i>m0)S0(x',x)  =  64(x'-x).  (2-3) 

The  solution  to  this  equation  in  momentum  space  determines  the  Fourier 
transform  of  the  free  electron  propagator  to  be 

S  (p)  =  J-  .  (2-4) 

Similarly  the  photon  propagator  satisfies 

DD0(x-x')  =  i64(x-x'),  (2-5) 


so  that  the  Fourier  transform  of  the  photon  progagator  is 
D(q2)  =4  • 

q 


(2-6) 


Thus  the  propagators  for  the  free  particles  are  explicitly  known. 

When  it  is  allowed  that  a  source  term  may  be  present,  the  inter- 
action between  the  electron  and  photon  will   lead  to  nonhomogeneous  dif- 
ferential equations.     The  exact  electron  and  photon  propagators  are  then 
determined  by  these  nonhomogeneous  differential   equations  but  the  solu- 
tions are  not  explicitly  known.     The  equations  which  determine  the  Fourier 
transform  of  the  photon  and  electron  propagators  are  an  open  set  of  inter- 
locked integral   equations.     This  hierarchy  of  integral  equations  was 
formulated  by  Dyson3  and  Schwinger.15     Using  the  notational   practices  of 
Bjorken  and  Drell,17  these  integral   equations  appear  as: 


TThe  4  vectors  are  denoted  by  a  bar  over  the  symbol   and  matrices 
are  distinguished  by  a  bar  under  the  symbol. 
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(a)  S(p)   =  S   (p)  +  S   (p)E(p)S(p)  (2-7) 


-ovr/      -o 
or  equivalently 


S'Vp)   "^(p)   -  E(p)  (2-8) 

where 

ie2       f 
I(P)   =—^4      Iy(P»q)i(q)Dyv(p-q)YVd4q.  (2-9) 

(2tt)     J 

»)    v*2*  ■  v2)  +%y '"aBtk2)  vk2>        <2-10' 

where 

H     (k2=-^\       Tr   [YaS(q)r6(q,q+^)S(q+R)]  d4q.  (2-11) 

(c)  ^(p.qJ-lX  +  A^P.q)  (2-12) 

where 

Au(p,q)   =  ie2/DVT1(k2)rv(p,p-k)S(p-k) 

6 

(Zir)' 


ry(p-R,q-R)S(q-k)£  (q-k,q)-^ 


+  ...  J...  J  r6(p,p-R)s(p-R)  ...  iy  ... 

d4kn...  d4kl(2Tr)-4n+  ...   .  (2-13) 

The  zero  subscript  follows  all  bare  quantities,  that  is,  those  functions 
or  constants  which  are  associated  with  the  free  particles.  The  ry(p,q) 
is  called  the  vertex  function.  It  represents  the  sum  of  all  nodeless 
diagrams  which  are  connected  to  two  external  electron  lines  and  one 


12 


external   photon  line.     If  a  closed  expressed  for  the  vertex  function 
could  be  formed,  then  a  complete  knowledge  of  the  interaction  propaga- 
tors would  depend  only  on  a  solution  to  the  three  linked     nonlinear 
equations;  the  electron  propagator  equation,  Eq.    (a),  the  photon  propa- 
gator equation,  Eq.    (b),  and  the  vertex  equation,  Eq.    (c).     However, 
Eq.    (c)  gives  the  vertex  equation  in  terms  of  an  infinite  series. 
Therefore  the  Schwinger-Dyson  equations,  though  simple  in  form,  possess 
no  simple  solution. 

One  method  for  attempting  a  solution  is  to  assume  the  interaction 
propagators  differ  from  the  bare  propagators  by  only  a  small  variation. 
Perturbation  theory  might  then  lead  to  at  least  an  asymptotically. con- 
verging series.     The  first  iteration  would  replace  the  propagators .on 
the  right-hand  side  of  Eqs.    (a),   (b)  and   (c)  by  the  bare  propagators. 
When  this  is  done  the  equation  for  the  electron  propagator  function 

Zjp)  becomes 

2 

,-\  3o  I     U  I  V    "UV   jt. 

2(p)  =  — t    r  /^m  ,   y  Tdk 


eo        fW+K*       1      ,4 


-4    d^k.  (2-14) 


~7^.V[(p+k)2-%]     k2 

By  a  power  counting  of  k  it  can  be  seen  that  for  k->~  the  integrand 

behaves  like  k3dk/k4  which  would  yield  a  logarithmic  divergence.  A  more 

careful  consideration  of  this  integral  would  take  into  account  the 

f 
hyperbolic  metric.  The  four -dimensional  integral  can  be  performed  by 

transforming  into  hyperspherical  coordinates  but  the  logarithmic  divergence 

persists.  A  corresponding  divergence  appears  in  the  vertex  function 


+See  Appendix  D  on  the  subject  of  calculation  of  four-dimensional 
integrals. 
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and  in  the  photon  propagator  function.     These  are  of  the  type  (d) 
category  of  divergences  of  Janch  and  Rohrlich8--the  so-called  "serious 
divergences." 

These  divergences  can  be  handled  by  any  of  a  number  of  methods 
grouped  under  the  title  of  Renormalization  methods.     The  first  proof  of 
renormalizability  was  provided  by  Dyson,  Salam  and  Ward.       Basically  the 
idea  is  that  although  absolute  calculations  cannot  be  made  with  the  for- 
malism as  it  stands,  still   relative  calculations  can  be  made.     The  param- 
eters of  the  theory  such  as  mass  and  charge  are  redefined  to  absorb  the 
terms  which  contribute  the  infinite  quantities.     The  renormalized  mass 
and  charge  are  taken  to  have  the  experimentally  observed  values.     Renor- 
malization, as  such,  was  a  huge  but  puzzling  step  forward.     It  provided 
the  tools  to  make  impressive  calculations  of  relativistic  corrections 
in  the  spectrum  of  the  atom  but  the  meaning  and  the  value  of  the  bare 
quantities  remained  a  mystery. 

The  very  fact  that  renormalization  works  is  an  indication  that  there 
ought  to  be  a  mathematically  consistent  way  to  solve  the  ^hierarchy 
without  encountering  undefinable  quantities.     The  practical  success  of 
renormalized  theory  argues  against  a  fundamental   flaw  in  the  theory. 
For  these  reasons  the  following  scheme  was  developed  to  solve  the  equa- 
tions without  recourse  to  renormalization  methods. 

The  procedure  which  has  made  possible  an  unformalized  solution 
of  the  Swinger-Dyson  equations  has  three  elements  to  it.     The  first  is 
the  assumption  of  a  reasonable  starting  point  in  terms  of  an  approx- 
imate form  for  the  photon  propagator.     The  second  is  the  generalization 
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of  the  Ward  Identity  which  provides  a  neat  formula  for  systematically 
truncating  the  hierarchy  of  the  vertex  equation  at  increasing  levels  of 
accuracy.  The  last  element  consists  of  transforming  the  electron  and 
vertex  integral  equations  into  linked  differential  equations.  The  dif- 
ferential equations  are  more  tractable  than  the  integral  equations  to 
numerical  and  analytic  approaches  to  the  solution.  A  description  of 
these  three  elements  is  the  object  of  the  following  three  sections. 

2-2  Initial  Approximations 

The  question  which  must  be  raised  first  is  whether  it  is  best  to 
solve  first  for  the  electron  propagator,  S(p),  or  first  for  the  photon 
propagator,  D  (k2).  This  can  be  decided  by  a  consideration  of  which 
of  the  two  is  easiest  to  approximate.  Since  Lorentz30  first  offered  the 
idea,  as  early  as  1909,  it  has  been  a  popular  view  to  consider  the  mass 
of  the  electron  as  mechanical  in  origin.  This  was  based  on  the  observa- 
tion that  the  electron,  when  accelerated  by  interaction  with  the  electro- 
magnetic field,  behaves  as  though  it  were  gaining  mass.  It  is  appeal- 
ing to  imagine  that  the  bare  mass  of  the  electron  may  be  zero  and  the 
self  interaction  with  its  own  electromagnetic  field  is  what  "dresses" 
the  electron  in  its  apparent  mass.  If  the  bare  mass  is  zero  or  very 
small1"  the  self  energy  of  the  electron  will  be  of  the.order of  magnitude 
of  its  rest  energy.  In  units  of  inverse  time,  the  rest  energy  of  the 
electron  is  1.2x  1014  megacycles.  On  the  other  hand,  renormalized  per- 
turbation type  calculations  of  the  Lamb  shift  show  the  vacuum  polariza- 
tion contributes  only  about  27  megacycles.  The  disparity  between  these 


+0bviously  the  assumption  the  bare  mass  of  the  electron  is  zero  is 
predicated  on  the  additional  requirement  that  there  be  no  other  forms  of 
interaction  which  contribute  to  the  mass  of  the  electron. 
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two  numbers  argues  that  the  self  energy  of  the  electron  may  be  more 
important  than  the  vacuum  polarization  of  the  photon.  Therefore,  it 
is  reasonable  to  start  with  an  approximate  form  of  the  photon  propagator 
and  solve  first  equation  (a)  for  the  electron  propagator. 

The  electron  propagator  is  a  function  of  the  scalar  p\  (YyPU)»  and 
as  such  its  most  general  form  is  expressible  in  terms  of  two  functions, 
one  the  coefficient  of  unity  and  the  other  the  coefficient  of  p1. 
Because  of  the  simplicity  of  Eq.  (2-8)  relative  to  Eq.  (2-7),  it  is  of 
interest  to  focus  on  the  form  of  S(p)  , 

S_1(p)  -  A(p2)  -  B(p2)p\  (2-15) 

The  vertex  function  is  a  matrix  function  of  the  Dirac  gamma  matrices 
and  the  four  vectors,  p  and  I,  the  electron  and  photon  momentum  respec- 
tively.     Its  most  general   form  is 

rVR,p)  =-^f  +y\  +  P^4  +J|f  G2 

,      H  ,  H, 

+  iaA°Y    2       e        Y  Y4>  aP3pk 

+  kAJ  +  kX  \  K  +  kAK  L  +  iaa3PakgkAM  (2-16) 

2       2 
where  F,  G  ,  G-, ,  G2,  HQ,  H] ,  H2  and  I  are  functions  of  p   ,  k    and  u. 

The  u  is  the  angle  variable  defined  as 


P  k 


a 


a 


pi      ?   i    • 

IpzI*  kT 


(2-u: 
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They  are  coefficients  of  that  part  of  r  which  is  transverse  to  k  . 

2   2 
Similarly  J,  K,  L  and  M  are  functions  of  p  ,  k  and  u.  They  are  coef- 
ficients of  the  longitudinal  part  of  r  . 


The  general  form  of  the  photon  propagator  is  known  from  its  relativ- 

2 
istic  covariant  properties.  Since  D  (k  )  is  a  second  rank  tensor  which 

2 

depends  only  on  the  four-vector  R,  the  photon  momentum,  D     (k  )  can  be 

taken  to  have  two  components.     One  component  is  proportional  to  k  k 
and  the  other  is  proportional  to  g     .     Thus 


D     (k2)  =  d,(k2)   g     /k2  +  d0(k2)  k  k  /k4.  (2-18) 

yv  1  uv  2  u  v 


In  addition  to  knowing  the  general  forms  of  the  three  functions, 
the  electron  propagator,  the  vertex  and  the  photon  propagator,  the 

limiting  form  of  the  functions  is  known  on  the  mass  shell.  In  the 

2   2   2 

limit  as  the  momenta  approach  the  mass  shell  where  p  •*■  m  ,  k  •*■  0, 

the  functions  approach  the  following  limits, 

S_1(p)  -  Z"Vm)  (2-19) 

rX(p+k\p)  -  Z"1  YX  (2-20 

D  (k2)  +Z,  ^   .  (2-21) 

yv      3  k2 
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The  constants  of  proportionality  to  be  determined  by  the  theory  are 
Z?  and  ly     First  order  perturbation  theory  finds  them  to  be  zero  or 
infinite.     They  are  called  renormalization  constants  because  the 
standard  procedure  is  to  use  them  to  redefine  the  series  expansions 
so  that  the  divergences  are  absorbed. 

The  initial  step  of  solving  for  the  electron  propagator  requires 
a  reasonable  first  estimate  of  the  dressed  function  D^v  and  r  .     The 
approximation  that  was  used  for  the  photon  propagator  was 

D     (k2)    -  Z,[-  %  -    (1-b)  %|.  (2-22) 

yv  3        k2  k4 

13  14 
This  choice  was  motivated  by  the  results  of  earlier  investigations. 

Studies  of  the  asymptotic  forms  of  the  propagators  which  were  not  incon- 
sistent with  finite  renormalization  constants  found  the  photon  propagator 
to  be  in  the  Landau  gauge  for  at  least  the  lowest  order  in  perturbation 
theory.     The  Landau  gauge  is  a  special  case  (b=0)  of  the  general   form 
given  in  Eq.    (2-22). 

The  approximation  that  was  used  for  the  vertex  function  was  obtained 
from  the  Ward  Identity  which  related  the  vertex  to  the  inverse  electron 
propagator, 

k  r^p+lc.p)   -  S"1 (p+R)  -  S_1(p).  (2-23) 

In  the  limit  as  the  photon  momentum,  R,  grows  small   this  can  be  expressed 
in  a  differential   form, 

y 
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As  illustrated  by  Eq.    (2-14),  when  the  bare  form  of  the  functions 
is     used  to  generate  a  first  approximation  to  the  dressed  function,  it 
is  found  that  "serious"  divergences  occur.     It  is  desirable  then  to  avoid 
the  substitution  of  bare  quantities  for  dressed  quantities.  Therefore 
if  the  general  form  of  the  electron  propagator  were  used  in  the  differ- 
ential Ward  Identity.it  would  be  possible  to  generate  a  general  form  for 
the  vertex  at  vanishing  R, 

IA(p,p)  =^-[A(p2)  +0B(P2)].  (2-25) 

A 

To  solve  the  electron  propagator  equation  a  knowledge  of  the  vertex 
function  rA(p+k,p)  is  needed.  Equation  (2-25)  represents  a  very  good 
approximation  to  the  vertex  function  where  |k  |  is  small.  In  consider- 
ing the  electron  propagator  Eqs.  (2-7)  and  (2-9),  it  can  be  seen  that 
this  approximation  is  at  its  best  when,  as  the  argument  of  D^v  vanishes, 
the  integrand  is  at  a  maximum.  This  coincidence  of  the  region  of  best 
approximation  with  the  region  of  most  importance  argues  that 

rVk.p)  ^[A(P2)  +0B(P2)]  (2-26) 

is  a  reasonable  first  approximation  for  the  vertex. 

By  using  the  approximations  in  equations  (2-22)  and  (2-26)  for  the 
photon  propagator  and  vertex,  a  solution  to  the  electron  propagator 
equation  can  be  found.  A  description  of  the  method  of  solution  and  its 
conclusions  are  found  in  the  next  chapter.  Once  a  solution  to  the  elec- 
tron equation  had  yielded  a  functional  form  for  the  electron  propagator 
functions  A(p2)  and  B(p2),  a  solution  to  the  vertex  equation  was  sought. 
The  next  section  describes  the  method  by  which  the  vertex  equation 
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was  approximated  so  that  it  no  longer  depended  on  the  higher  levels  of 
the  hierarchy. 

2-3    Approximating  the  Vertex  Equation  with 
Green's  Generalized  Ward  Identity 

A  construction  of  the  infinite  hierarchy  of  equations  can  be  selected 
so  that  a  highly  repetitive  pattern  emerges  which  can  be  used  to  system- 
atically separate  the  equations  at  any  chosen  level  of  complexity. 
Instead  of  the  infinite  series  which  appears  in  Eq.    (c)  the  vertex  equa- 
tion can  be  written  as 


ry  =l!!  +  A(p,q) 


-o 


where 


ie2      f 
Av(p,q>  —A      Y3DaB(k2)S(p-R)ry(p-R,p-q-R) 

(2nr  J 


S(p-q-R)ra(p-q-k,p-q)d4k 
(21) 


ie2       f 
+  _!o  3d     (k2)S(p-R)Eya(p-Ti,q,p-q)d4k.  (2-27) 

forn4  J        aP 


A  new  function  has  appeared,  E_ya,  a  function  of  three  external 
momenta,  which  corresponds  to  four  independent  points  in  space- time; 
hence  Eya  is  a  four-point  function.     Just  as  the  two-point  functions 
^(p)  and  D     (k2)  were  related  to  the  three-point  function,  r  (p,p+R), 
and  as  the  three-point  vertex,  rX,  was  related  to  the  four-point  func- 
tion Eyct(p-R,q-,q-l<),  so  the  four-point  function,  Eya,  can  be  related  to 
a  five-point  function  and  so  forth.     The  greater  the  number  of  momenta 
involved  the  lower  the  contribution  from  such  a  cross  section  should  be. 
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Each  new  n-point  function  is  created  by  pulling  a  dressed  photon  and 
dressed  electron  propagator  out  of  an  n-1  point  diagram,  creating  in 
this  way  a  new  vertex  or  point. 

In  Table  2-1   the  equations  for  the  two-point  electron  propagator, 
the  three-point  vertex,  and  the  four-point  Eyv  are  given  to  show  the 
pattern  that  is  emerging. 

The  repeated  structure  in  the  relations  that  link  an  n  point  diagram 
to  an  n+1  point  diagram  suggests  there  should  be  a  generalization  of  the 
well-known  Ward  Identity  which  states 

q  Ay(p-q,p)    =  -Efp-q)   +  E(p).  <2-28) 

A  generalization  of  this  for  the  four-  and  five-point  diagrams  would  be 

q   Eyv(p+q,p,R)   =  AV(p+q,p-R,K)   -  AV(p,p-k\R)  (2-29) 

q  Fyva(p+q,p,k,£)   =  E^p+q.k^-p-q .*.£)-   Ev(p,*4-p.t.I).        (2-30) 

I  o 

This  generalization  of  the  Ward  Identity  was  first  proven  by  H.   S.  Green 
in  1953.       These  identities  exactly  define  the  longitudinal  components 
of  the  n+1  point  diagram  in  terms  of  the  difference  of  two  n-point 
diagrams.     These  identities  can  be  used  to  truncate  the  hierarchy  of 
equations  by  approximating  any  given  diagram  by  its  longitudinal  compo- 
nent.    In  this  manner  the  vertex  function  could  be  solved  for  if  Ey    was 
approximated  through  an  application  of  Eq.    (2-29). 

In  conclusion,  it  has  been  proposed  the  electron  propagator  can  be 
found  by  approximating  the  three-point  vertex  by  Ward's   Identity. 
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TABLE  2-1  .  RELATIONSHIP  BETWEEN  N-POINT  DIAGRAMS 
Two  point  diagram 

S_1(p)  =  S'Vp)  -  E(p) 


where  S~  =  $  -   m0 


I  =-^\  J^(p,p-q)S(p-q)Duv  t\h% 


Three  point  diagram 


£y(p,p-q)  =lj  +  Ay(p,p-q) 


where  r  =  y 

"  2  f 

Ay  -  -^4ka(p-^q»p-q)srp-^)Dav(k2)Yvd4k 

Four  point  diagram 

□  ya(p-K,q,p-q)   =  Dya  +  Eya(p-K,q,p-q) 

where   D^  =  rA(p-^,p-q-^)S(p-q-^)rv(p-q-k,p-q) 

.2 

Eya  =  _^0     Oya3(p-R-^R,q,p-q)S(p-^)D      (£2)YV 
(2u)4    " 


Five  point  diagram 

O^p-K-a.K.q.H)  =Ooae  +  FyaB(P-^-^^q>p-q) 

where(J) 


(2ir) 


e2     ^ua34> 

-MO    (p-k-£-s,£,k,q,p-q)S(p-s)Dyv(s    )YVd  S 

tt)  J 
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Although  the  Ward  Identity  provides  an  exact  relationship  for  the 
longitudinal   component  of  the  vertex,  it  only  yields  the  limit  of  the 
transverse  part  for  small  photon  momentum.     To  obtain  the  transverse  part 
for  large  values  of  the  photon  momentum  a  solution  to  the  vertex  equation 
must  be  found.     This  can  be  done  by  using  the  first-order  generalized 
Ward  Identity  to  determine  an  approximation  for  the  four-point  diagram. 
This  process  has  two  wery  important  aspects  to  it.     One  is  that  at  all 
levels  in  the  solution  to  the  Schwinger-Dyson  equations  the  Ward  Identity 
is  exactly  preserved.     The  second  is  never  are  bare  functions  substituted 
for  dressed  functions--a  procedure  which  has  always  been  associated  with 
divergences. 

2-4     Converting  the  Integral   Equations 
into  Differential   Equations 

Another  essential   step  in  the  whole  procedure  of  reducing  these 
equations  to  a  tractable  form  without  giving  in  to  the  drastic  approxima- 
tions, which  have  characterized  earlier  attempts  at  a  solution,  was  the 
conversion  of  the  integral   equations  into  differential  equations.     This 
method  was  developed  by  H.   S.   Green      in  connection  with  the  Bethe- 

Saltpeter  equation.     It  was  first  used  for  a  study  of  the  Schwinger- 

20 
Dyson  equations  for  the  electron  by  Bose  and  Biswas. 

Whenever  the  photon  propagator  appears  under  the  integral   it  can 

be  used  to  eliminate  the  integration.     The  photon  propagator  was  taken 

to  have  the  form, 

D     (k2)   =-   Z.[%     +   (1-bAS.  (2-31) 

yv  3   k2  k4 
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the  photon   propagator  can  be  put    into    the  alternate  form, 

9 


D,,„(k6)    =  Z. 


yv 


v      u  k   _J 


;2-32' 


(2-33; 


Notice  also  that  the  D' Alemberian  operator, 


□ 


_9 3_ 

k   '  8ku   3k^    ' 


(2-34; 


/ill   operate  on  -W     to  yield  a  delta   function, 


□  _•  =  4TT2i6(k2: 

K  r 


(2-35: 


This  delta   function  can   be   used  to  trivially  perform  the   integration 
over  integrals  of  the  form, 


iV)    =  ie2/Dijv((q-k)2)YyFAv    (q2)    d4q. 


[2-36) 


Substituting  Eq.    (2-33)   into  Eq.    (2-36)   results   in 


IA(k2)   =  ie2 
0. 


*(l-b>-. 


(k  -q   )  3(k  -Q   ) 

v    V      V  U       u 


ln((k.q)    )   -  £   (b+1)  -^ 
2  (k-q)t 


Pr-AV/     2\   .4     . 

Y   F      (q    )d   q 


[2-37) 


Apply  the  D' Alember tian 


~V  <k2)  =<}{-l^ltw  (      ,2 


1  (b+l)g     4^2i6    (k-q! 

2  3pv 


YyFAv(q2)d4q 
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=  2e2(b+1  )-rr2YvFAv(k2) 

+  ie2(-   (1-b)  ^—h  FXV)d4q.  (2-38) 

J  3Kv  (k-qT 

There  is  one  remaining  part  under  the  integral.     This  can  be  removed  by 
either  of  two  ways.     The  first  is     operate  on  the  equation  with 

Ya_JL  =  y      This  yields  the  following  third-order  differential  equation 

3ka 

*kDklV)  =2e2/(b+l)v/V) 

+  4e2Tr2(l-b)   gf  FXV).  (2"39) 

The  second  method  is  to  identify  the  remaining  integral  as  some  func- 
tion GX(k2)  such  that 

GX(k2)   -if-    d-b)  JL  %  — U  F^(q2)d4q.  (2-40) 

Then  the  problem  of  solving  Eq.    (2-38)  becomes  the  problem  of  solving 
the  pair  of  equations,  i 

DkIA(k2)  -  2e2(b+l)Tr2  Y/V)  +  e2GX(k2) 

?GX(k2)  =  4,2(l-b)  J-  FAv(k2).  (2-4D 

v 

By  either  of  these  routes  a  solution  to  an  integral  equation  of  the 
form  (2-36)  is  equivalent  to  a  solution  to  the  differential  Eq.  (2-39) 
or  the  pair  of  differential  Eqs. (2-41)  when  the  appropriate  boundary 
conditions  are  satisfied. 
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To  briefly  summarize  this  chapter,  a  scheme  has  been  laid  out  by 
which  the  first  two  unformalized  Schwinger-Dyson  equations  could  be 
solved.     The  first  step  of  the  scheme  involved  solving  for  the  electron 
propagator.     To  solve  the  electron  equation  required  using  Eq.    (2-22) 
and  (2-26)  to  initially  approximate  the  vertex  function  and  the  photon 
function.     The  second  stage  of  the  scheme  involved  solving  the  vertex 
equation  to  determine  the  form  of  the  transverse  part  of  the  vertex  for 
other  than  very  small  photon  momenta.     To  make  this  possible  the  higher 
order  terms  were  also  approximated  using  a  generalization  of  the  Ward 
Identity.     Finally  the  integral   equations  relating  these  functions  were 
to  be  converted  into  differential  equations  to  make  an  analytic  solution 

easier. 

In  the  next  chapter,  Chapter  III,  a  survey  of  the  work  that  was 
done  on  the  electron  equation  is  given.  In  Chapter  IV,  an  introduction 
to  the  details  of  solving  the  vertex  equation  is  given. 


CHAPTER  III 
THE  ELECTRON  PROPAGATOR  EQUATION 


Recall  the  form  of  the  electron  propagator  previously  given  in 
Eq.  (2-7)  where  S  ,  the  Fourier  transform  of  the  bare  propagatator,  is 
given  by 


s  =  -J—  .  (3-D 

o   $  -   nv 


The  m  is  the  bare  mass  of  the  electron,  that  is,  the  mass  the  electron 
would  have  if  the  electromagnetic  interaction  could  be  turned  off. 


The  _E(p)  equation  was  given  as 
.  2 


ie2  f 

I(P)  "  — ^4   ^(p,q)S(q)Dyv(p-q)YVd4q.  (3-2) 

(2tt)  J 

On  the  basis  of  rationalizations  detailed  in  section  2-2  two 
approximations  are  invoked  to  sever  the  connection  of  the  electron  equa- 
tion from  the  vertex  equation  and  the  photon  propagator  equation.  These 


were. 


and 


D  (p-q) 


(p-q)z       (p-q)4 


h  (3-3» 


ri(p*i,p)^s-1(p).  <3-4) 

A 

When  these  substitutions  are  made  the  electron  propagator  Eq.  (3-1) 

becomes 
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.  ie2    fas-'fp) 


[ 


-^>         (1-b)-   y    V      v 4  v 
(p-q)Z 


(p-q) 


d  qy  • 


(3-5) 


Because  the  electron  propagator  is  a  scalar  function  of  only  the  electron 
momentum,  its  most  general   form  is  given  by 

S_1(p)  =  A(p2)  +  0B(p2).  (3'6) 


So  that 


3p. 


|^  S"T(p)-  =  2pyA'(p2)   +  yyB(p2)   +  2pu0  B'(p2) 


(3-7) 


where 


A.(pZ,.«l4l      and     B'(P2)=^V 
dp"1  dP 


(3-8) 


Substituting  Eqs.    (3-2),  (3-7)  and  (3-8)  into  the  electron  propagator 
Eq.    (3-6)  yields, 


ie 


A(P2)  +  ^B(p2)   =  i  -  mQ  +-^-4       ((2pyA'(p2) 

(2tt)     J  K. 

+  YyB(p2)   +2p^B'(p2))(A(q2)   HB(q2)) 


fc 


(P-q)  (P"q) 


} 


d  qy  • 


(3-9) 


The  equation  was  converted  into  a  differential  equation  by 
application  of  the  D' Alembertian  operator,  as  described  in  section  2-4. 
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For  the  purpose  of  performing  all   of  the  needed  matrix  multiplications, 
a  table  of  products  of  gamma  matrices  was   prepared.      This   table  appears 
in  Appendix  A.       Equation   (3-10)   then  separates  into  twolinearly  inde- 
pendent differential   equations,  the  coefficient  equations  for  the  unit 
matrix  and  p\ 

The  unit  matrix  equation  is 

2       „.,        e2     f(4-b)  AB         ,    (2+b)p2    ( B '  A-_AJ_Ep   _   J> 

(3-10) 


A"p^  +  2A'    =^(^-4-^— 2     /^  -  „/      <o 

4u2\     4        (A^-p^)  Afc-p  B 


where 


(3-11) 


The  0  equation   is 


where 


cfB'A-A'B^ 

■~6W?r 

-2x10.        e2     fj2+b)    (A'A-B'Bp2)  Q-b)BJL~\  (3.12) 

p     +3B     -^[^T-     {fZ_U)  (fl2_p2B2)j 


,  I       - 


„        %  and         B'    =^\  (3"13) 

dp  dp 

-A"  =-4-?    and        B"  bJT7-  (3"14) 

d(p2)2  d(pZ)2 

Numerical   solutions  to  these  equations  were  formed  using  a  fourth 
order  Runge  Kutta  method  which  generated  the  values  for  the  functions 
A,   B  and  T.     The  functions  A  and   B  were  found  to  be  very  slowly  chang- 
ing functions.      In  fact,   for  most  practical    purposes,   B  is   essentially 

2 
equal    to   1.      The  function  A  very  slowly  declines   as   p     +  ro. 
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A  description  of  the  solution  and  a  simple  analytic  determination 

21 

of  the  asymptotic  behavior  of  these  functions  was  presented  in  the  paper 

on  the  electron  propagator  equation.  In  that  paper  a  different  approach 
was  taken.  The  integral  equations  were  not  converted  into  differential 
equations  by  the  action  of  the  D' Alembertian  operator.  Instead  the 
variables  of  integration  were  converted  to  hyperspherical  coordinates; 
a  Wick  rotation  was  performed;  then  the  (p-q)   factor  was  expanded  in 
terms  of  Gegenbaur  polynomials,  ^nM-     These  polynomials  have  an  orthog- 
onality condition  which  was  used  to  simplify  the  integrations.  This 
useful  procedure  is  illustrated  in  detail  in  Appendix  D. 

The  solutions  to  the  differential  equations  had  to  be  restricted 

to  be  particular  solutions  of  the  integral  equations  by  the  boundary 

2 
conditions.  The  boundary  conditions  for  the  four  momentum,  p  ,  approach- 
ing the  mass  shell  is  known.  There  the  electron  propagator  is  propor- 
tional to  the  bare  propagator.  The  asymptotic  boundary  conditions, where 

the  magnitude  of  p2  is  undefinitely  large,  are  not  explicitly  known. 

14 
This  has  been  an  object  of  study  of  a  large  nimber  of  papers.    Inter- 
esting things  can  be  determined  about  the  asymptotic  form  of  the  solution 
when  the  differential  equations  are  substituted  into  the  integral  equa- 
tions. This  was  carried  out  in  the  third  section  of  that  same  paper. 
There  it  was  found  that  the  functions  A  and  B,  of  the  electron  propa- 
gator,  must  approach  constants  for  large  p  .  In  order  that  they  could 
approach  constants  the  gauge  parameter  b  had  to  be  set  to  zero.  With 
b  equal  to  zero,  the  photon  propagator  was  set  in  the  Landau  gauge. 
At  the  same  time  it  was  demonstrated  that  a  finite  solution  required 
the  bare  mass  to  be  zero. 
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An  expression  for  the  function  A  was  fitted  to  the  tabulated 
numerical  solution  over  a  finite  range  of  momenta.  The  accuracy  of 
the  fit  was  around  0.1  percent.  To  an  even  greater  accuracy  the  func- 
tion B  was  observed  to  equal  the  constant  one.  Thus  the  functions  A 
and  B  appeared  to  be  well  represented  by 

A(p2)..  n_p2,e(1-P2)/p2  (3-15) 

B(p2)   =  1.0  (3"16) 

where  e  =  1.74517  x  10"3. 

The  tabulated  values  of  A  then  predicted  an  asymptotic  form  of 

A  =  -|p2r£  <3-i7) 

and  an  asymptotic  B  of 

B-l.  (3"18) 

When  these  asymptotic  expressions  were  substituted  back  into  the  inte- 
gral equation  the  power  law  for  A  was  explicitly  determined.  It  was 
found  that 

e  =  (3a/4Tr)  +  (3ci/4tt)2  +  3(3a/4Tr)3  +  ...  (3-19) 

13 
where  a  is  the  fine  structure'  constant.     Baker  and  Johnson      obtained 

almost  the  same  expression  for  the  power  law  of  A.     They  concluded 

e  =   (3a/4TT)   +  j(3a/47r)2  +   ...  (3"20) 

Last  of  all  it  was  possible  to  see  by  comparing  the  limit  of  the  electron 
propagator  as  the  mass  shell  is  approached,  to  the  propagator  expressed 
in  terms  of  the  renormalized  propagator  that  the  renormalization  constant: 
Z„,  was  equal  to  unity. 
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All  of  these  resulte  were  in  agreement  with  the  results  given  by 
Johnson,  Baker  and  Willey.   They  had  also  concluded  that  the  bare 
mass  was  zero  and  they  had  determined  a  wery   similar  value  for  the 
power  law  of  the  asymptotic  expression  for  A. 

This  paper  represented  an  extension  to  the  understanding  of  the 
electron  propagator  because  it  went  beyond  trying  to  determine  an 
asymptotic  form  of  the  propagator  which  was  consistent  with  finite 
renormalization  constants.  This  paper  actually  determined  an  approx- 
imate expression  for  the  electron  propagator  which  was  good  for  all 
momenta.  The  electron  propagator  was  determined  to  be 

s-l(p)=M|,.p2|^l-P2)/P2  (3-31) 

where  e  =  1.74517  x  10"3. 

In  this  manner  it  was  shown  that  the  electron  propagator  could  be 
determined  using  approximations  of  a  far  less  drastic  nature  than  had 
been  tried  before.     No  infinite  quantities  were  encountered.     Encour- 
aged by  the  success  of  this  first  stage  of  the  project,  an  attempt  to 
solve  the  vertex  equation  was  ventured. 


CHAPTER  IV 
THE  VERTEX  EQUATION 


4-1     Introduction 

The  next  step  in  the  process  of  seeking  a  solution  to  the  Schwinger- 
Dyson  equations  is  solving  the  vertex  equation,  restated  here, 

TA(p,q)    =  YX  +  AA(p,q)- 

where 

i  2 
A*(p,q)    „-^     rY«D      (k2)S(p-R)rX(p-R,q-R)S(q-R)r3(q-k,q)d4k 

(2tt)      J 

.    2 
+  -^    fy\  (k2)S(p-R)EXa(p-k,q-R,q)d4k.  (4-1) 

(2tt) 

As  with  the  electron  propagator  equation,  the  solution  to  this  equation 
is  preceded  by  three  elements  of  preparation. 

The  first,  the  photon  propagator  is  taken  to  have  the  same  form 
as  was  utilized  in  the  electron  propagator  equation.  However,  it  is  now 
fixed  in  the  Landau  gauge  so  that 


D     (k2)   =  -  Z~ 
yvv  3Lk 


fg  k  k  " 

L2  "  k4J 


(4-2) 


The  second  element  is  to  recognize  that  the  four-point  diagram, 
EeA,  which  is  defined  in  terms  of  the  five-point  diagram,  which  in  turn 
is  defined  in  terms  of  all    higher  order  diagrams,  an  infinite  progression, 

33 


34 


must  be  expressed  in  some  closed  and  approximate  form.     Just  as  the 
vertex  function  could  be  related  to  the  electron  function  through 
Ward's   Identity,  so  the  four-point  diagram  can  be  related  to  the  vertex 
through  a  Generalized  Ward's  Identity.     There  are  two  possible  longi- 
tudinal  components  of  the  four-point  diagram,  one  is  longitudinal  with 
respect  to  kv  and  the  other  which  is  longitudinal  with  respect  to  q  . 
The  relationships  between  the  longitudinal  components  and  the  vertex 
function  as  given  by  the  generalized  Ward  Identity  are 

k^p-R.q.p-q)   =  AA(p,p-q)-  AX(p-k\p-q)  (4"3) 

q,EAv(p-U,~p-q)   ■  AV(P-^P)   -  AV(p-R,p-q).  (4-4) 

A 

It  is  possible  to  substitute  rX  for  AX  and  rv  for  Av  in  these  relations 
because  the  difference  between  r  and  A  is  a  constant.  Using  this  fact 
and  putting  Eqs.  (4-4)  and  (4-5)  in  the  differential  form  it  can  be 
seen  that 

IAv(p,q,p-q)  =^-rYp,p-q)  (4-5) 

EATp-fc,0,p)  =^-rv(p-k,p).  (4-6) 


3Px 


Thus  in  this  procedure  the  complete  E  v  will  be  approximated  by  these 
two  parts , 

EXv(p-R,q,P-q)  -  gfrX(p,p-q)  +  4-  rV(p-R,p) .  (4-7) 

For  the  purposes  of  simplification  it  is  observed  that  the  expression 

rA(p-k,p-q)S(p-q-R)lV(p-q-R,p-q)  -  g£-  rA(p,p-q)  (4-8) 
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can  be  reduced  to 

A  [rA(p-k,p-q-k)S(p-q-k)]  S"1 (p-q-R).  (4-9) 

To  obtain  this  simplification  use  is  made  of  the  fact  that 

^-[S(p-q)]  S-Vp-q)  --Kp-qJ-^S-^p-q).  (4"10) 

and  the  vertex  function  was  again  approximated  by 


rv(p-q-^P-q)--^r'(p-q).  (4-n) 

3p 


By  substituting  the  expressions  in  Eqs.  (4-8)  and  (4-9)  into  the  vertex 

Eq.  (4-1),  one  obtains  a  simplified  vertex  equation, 

"  2   f 
rA(p,q)  „  /  +— fi,   Y«D   (k2)S(p-lc)  ^IV  (p-k,P)A 
(2tt)  J  A 

ie2   T 
+  _1!P_  |y\6(k2)  S(p-lc)  ^-  [lVk,"p-q-fc)S(p-q-K)l 
(2tt)  J  v 

S-^p-q-^d^.  (4-12) 

The  last  step  in  preparing  the  vertex  equation  was  to  operate  with 
the  D'Alembertian, 

n2  =  -JLJL  (4-13) 

Kv  8p 

The  D'Alembertian  has  the  desirable  feature  of  operating  on  the  Fourier 
transform  of  photon  propagator,  here  in  the  Landau  gauge,  to  produce 
a  Dirac  delta  function, 
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D2  Duv(p--r)   -  -  2/i   gyv    6(p-r)Z3 


-  Z    2 ^ 1       .  I4-H] 

3  a(pU.rU)  9(pv_rv)    {-_~r)d 


Therefore, 

D2  rA(p,r+P>  -^r  /V[-2  2i   9pv  6(p-r)]S("r) 

~-  [rA(?,?+q)S(i;+q)"1]_S(i;+q)d4r 

y 

+  _LiL    /> ? 1 "L—    s(?) 

(2tt)4    J  a(pM-ry)  3(pV-rv)    (P-r)2    ~ 


_L  [rA(F,?+q)S(?+q)_1]  S(F+q)d4r 

arv 


2 
e 

8/ 


(-  Y^P)  4~  [^(prp+q^p+q)-1]  S(p+q)j 


2 


le 


(2^)4   j        8(py-r^)   3(pv-rv)   (p-r) 


]S(r) 


2  J- 


—  [rX(r,r+q)S(r+q)_1]  S(r+q)d4r.        (4-15 


2         2 
In  the  above  the  definition  Z3eQ  =  e    was   used. 

At  the  cost  of  having  to  solve  higher  order  differential   equations 
the  last  integral   can  be  eliminated  by  the  action  of 

P  =  YU— • 

9PU 

This  yields  the  final   form, 

y3rA(p,r+-p)  =  -4  yv  %   FAv(p,p+q)    +  ^-  FAv(p  ,p+q)  ]  (4-16; 
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where 


and 


o  2       2 

f      =    fD,  e  =  e  /4tt 


FAv  =  S(p)  /-  [rA(p,p+q)   S(p+q)_1]  S(p+q).  (4-17) 

3pv 


4-2     The  Main  Computer  Program 

It  is  only  necessary  to  solve  the  vertex  equation  for  the  transverse 
components  of  the  vertex  since  by  Ward's   Identity  the  exact  longitudinal 
components  are  known  in  terms  of  the  solution  to  the  electron  equation. 
The  main  computer  program  is  a  realization  of  the  equation 

where 

ftVrans     =  ^)  &  [4.ns   (^~p)  ^  ^  ^ 


Hereafter  the  subscript  "trans"  will   be  dropped  and  it  will   be  under- 
stood that  any  A  superscript  is  taken  to  be  transverse.     Thus,  for  any 


general   function  Q   , 

Q^QA-    kaQa4-  (4"19) 

In  the  vertex  equation  there  appear  two  independent  four  momenta, 

R,  the  photon  momentum  and  p,  the  electron  momentum.  Scalar  functions 

2 
therefore  will  be  functions  of  the  variables  p  and 

.,  =  £d<  (4-20) 

pk 
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where  p  =   |p   | 2       and       k  =   | k   |  2 

2  2 

and  the  functions  will   be  parametrized  by  k  .     The  range  of  p     is  from 

negative  to  positive  infinity.     The  variable  u  has  the  same  range  owing 
to  the  indefinite  metric.     The  general   expression  for  the  vertex  func- 
tion in  terms  of  such  scalar  functions  is  given  by 

\  H  H 

rx(p+k,p)  =  \  F(P2u)  +  PA[|*,K]  -fa  (p2>u)  +  [Y\j*]  -j  )p2>u) 
pK  p  k  p 

+  [Y\K]  4   (P2.u)   +  y\(p2u)   +  P^  4  (P2,u) 

k  P 

+  p*l4(p2u)+Eto*Y5Vvkai(p2,u).  (4-2! ) 

P  P 

In  addition  to  the  general   expression  for  the  vertex,  the  general 
expression  of  the  Fourier  transform  of  the  electron  propagator,  as  given 
in  Eq.    (2-16),  is  needed.     So  that 

,,-s   _  A(p2)  -  p-B(p2)  (4_22) 

MPJ  o     o  p   o,   2, 

and 

S{W   =     A((P+k)2)   -    (frK)B((p*k)2)    )    .  (4.23) 

Atp+k)2)  -  (p-+K)2B2((P+kn 

For  simplicity  the  following  notation  will  be  observed  throughout, 

A]  =  A(p2)  A2  =  A((p+k)2) 

B1  =  B(p2)  B2  =  B((p+k)2) 

D1  =  A2  -  p2B2  D2  -  A2  -  (p+k)2B2  .        (4-24) 
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A-.-0B, 
Thus  S(p)    =-L1T1  (4-25) 


S(p+k)   =  -S g L-  .  (4-26] 

U2 


Equation   (4-18)  presents  the  differential  vertex  equation  in  a 
straightforward  and  simple  form.      Unfortunately  when  substitution  of 
the  scalar  functions  of  Eqs.    (4-21),   (4-22)  and   (4-23)  is  made  and  the 
products  of  the  gamma  matrices  are  taken,  thousands  of  terms  need  to  be 
resolved.     Once  expanded  in  this  way  it  is  clear  the  matrix  equation  is 

equivalent  to  eight  equations  which  are  coefficients  of  the  linearly 

.    ,  .  ...  A       X,     Ai,       ABatb  5  ,         .    aX.         ■    Aa 

independent  matrices:  y  .  P  w  P  K,  e  P^Y  Y<kPakg»  1a     ka>  la     Pa» 

iaa^p  k„p     and  p  .     The  description  of  the  process  of  identification  of 

these  eight  equations  will   consume  the  next  several   sections.     In 

section  4-3  the  left-hand  side  of  the  eight  equations  will   be  explicitly 

given,  and  in  section  4-4  the  right-hand  side  of  the  eight  equations 

will   be  given.     These  eight  equations  plus  a  set  of  boundary  conditions 

will   be  used  to  determine  the  eight  transverse  vertex  functions  F,  ^G-^ 

H  H-,H9  and   I. 
O   1    L 

4-3     Left- Hand  Sides  of  the  Eight  Equations 

The  formation  of  the  left-hand  sides  of  the  eight  equations  which 
comprise  the  matrix  equation  for  the  vertex  is  a  relatively  straight- 
forward operation.     The  operation  of    f   on  any  general   function,  f,  of 
p     and  u  will  yield 

*f(p2,U)   .  2Kf   ♦  <!  -  f  f'-  <4"27) 
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2 
The  prime  denotes  a  partial  derivative  with  respect  to  the  scalar  p 

and  an  asterisk  denotes  a  partial  derivative  with  respect  to  u. 

When     y3  was  applied  to    TX  the  coefficients  of  the  eight  linearly 

independent  matrices  were  obtained.     These  are  given  in  Table  4-1. 

TABLE  4-1     Left-Hand  Side  of  the  Eight  Vertex  Equations 

A 
Equation  1     Coefficient  of  p 

•  **  2  *** 

(if  t23„V^*nf**-   "C-u2)  V  "   14  -2 
P  P  P  P  p  P 

*'  9       F  *■  '  2    '  '  ' 

_l8u     F       +  2(1-/)   *         +  20  F"-4u  F         +  8  p^F 

P  P 

• 

9      ^n  II  9      ***       9    ,         9^9      *** 

-   64  \H     +   (30-86   u2)-|  +  26\(l-u2)Ho      --^(l-i/)'  HQ 

p  p  p  P 

*> 

+  64  ^r  H  '+  (44  u2-16)  -f-  -   4  -^{l-u2)H**'    -   32  u  l{ 
P  P  P 

-   8   (lV)H0     -   16  pSHQ 

*  ** 

Hi  H,  9       H-i  o     *** 

+  18  4  +  46  u  4  +  (20  /-6)-V-  -   2  -^(1 V)^ 
p                   P  P  P 

i 

H-,  ,i         *'  A  9       **'  "  *" 

-   28  4  "   36  "T  Hl      +  V1_u   )H1       +  40  H1    -   8  uH] 
P  P  P 


2\\l")±.  (4-28) 


+  16PH1     )Pi 
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Equation  2     Coefficient  of  p  K 

f*  n       **  F*'  *"       (1-u2)   ^*** 

p        p  p  p 

-8V*JVC+V;-^'C*W>C 

p  P  P  p  P 


+  64  HQ  +  16   p^HQ 


Hl  4u     **       „  H* 

P         P  P 

**  *** 

H  H 

+  18  ^  H*  +  [10   u2-4(l-u2)]  -§-  "   2u(l-u2)-2ir  -   28  \  H*' 
p4     ^  P  p  p 

**' 

u 

+  48  h"   -   8  uH*"   +  16  p2Hp"    +  4(l-u2)-2y-  ■ 

c  P 

Equation  3     Coefficient  of  y 

*  ** 

pk   p2  p2  p2 


(4-29) 


LI 

.  8u     H        4(1.u2)_o  +  8  ^ 

P  P 


2^1      ,    o.  in    .    „n    ..2< 


**i 


-   12  uH,     +  4(l-/)-i-  +  20  H^   +  4(l-if  ^       +  64  p1"^ 
P 

4   <  •  •        8u     * 
+  16  p4H1        -   ™  H1 

P 
*  **  *** 

+   (18  u2-6)-|  -   14  u(l-tT)-f-  +  2(1-U<T  -V 
p  P  P 

+   (16-28u2)H*'    +  4u(l-u2)H**'    +  28  p2uH^ 

+  16   upV,"    +  8p2(l-u2)H*"].  (4-30) 
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Equation  4     Coefficient  of  e  aWy  Y^k  P 


aKB 


O  II  *  ?  ?.      **  ft  '  " 

\hq-   10^Ho+\(1-u2)Ho     +8_H0  +  8Hq 
P  p  p  p 


•THr10\H,     +^(l-«m       +^H,  +  8  H1 
P                    P                P                            P 

**  *** 

H  H 

-  18  \  H*  -   [10  u2-4(l-u2)]  -^  +  2u(l-u2)  -21- 

P  P  P 


*■  **• 

H  i                                                                H 

+  28  u  -|  -  48  H^  +  8  uH*"   -   16  p2^"    -   40-u2)-2^-.                (4-31) 

p  '                '"                     '                            P 

Equation  5     Coefficient  of  ia     pgk  p 

*  ***  *> 

l         G-,  **  0     G-,  G-,  *„ 

i^  +  7  Vl     -  (lV)-V-  4  4--   4G] 
F         P             P                                 P  P 

*  **  *** 
Gq                  Gp                          9          Up                  o     bp 

+  9  -|  +  23  u  4  -   [3-10   (/)    ]  -4—  u(l-i/)  -V 
94  p4  pH  P 

1  **i 

Gp  ^.1  0     Up  H  ^n  p    111 

-  14  -§   -  18-^  G2    +2(l-u   )  ^-+20  G2-  4  uG2     +8  pdG2 

P  P  P 

*  **  *** 

+  9  4-  +  23  u  K-  [3-  10   (u2)    ]  V-  (T-u2)^  LT- 
P  P  P  P 

1  *i  **i 

T  T  ?       T  "  *" 

-  14  K-  18  u  4-+20-u   )  ^-p-+20   I     -  4   ul 

P  P  P 

+  8  p2l'"].  (4-32) 
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Equation  6       Coefficient  of  10     Pa 

*  **  ***  *' 

G  9     G„  o     G  G 

9  u  -4-  U-7u2)  4-  -  u(l-u2)  -V  -  14  u  -|- 
p4                     p4                           P  P 

0  G**'  ,i  *n  O     '  '  ' 

+  2(1  V)  —V  +  24  GQ  -   4  u  GQ     +  8  p  GQ 
P 

*                       **  „' 

Gi                Gn                o     G,  G1 

+  44+  5  u4-  (1-u2)-^--  44-   4G1 

p4               P                       P  P 


** 


9u    I    .   [23  (u2)      -   8]K  +  10(lV)u^T 
p4  P  P 


(l-u2)2^+  14  u  K-   (8-18u2)  ^ 
P  P  P 


2u(l-u2)  ^-g-  -  20  ul     -  4(l-u  )I 

P 


Equation  7     Coefficient  of  ia  ka 


■  G  G„  9     G  *  ■  0  *' 

£[3_|+5u-f  -    (l-u2)-V-8G0     -4p2Go 

P         P^  P  P 


*  ** 

G9               G9  ?  G9  i 

.   3  _|  _  5         2  +  (1./)  _^_  +  8  Q2 

P  P  P 

9    11                T  t                      2  \  1 

+  4  p^G9  -   3  -4  -   5   u  -~  +   (1-u   )  -9- 

2           P  P  P 


(4-33) 


2  i'    +10  u  I*'    -  2(l-u2)   I**'    -  28  p2l"   -  8p4l'"].    (4-34) 
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Equation  8  Coefficient  of  p 


*  **  G***  G* 

9  u  V    [2  -   7    (u2)]^--   u(l-u2)^--   14  u^- 
p4  p4  P  P 


** 
G 


+  2(l-u2)  -\-  +  24  GJ  -   4  u  GQ     +  8  p  Go 

*  **  „*' 

G,  G,  o  G,  Gi  G1 

-   12  4  -   15  u  4  +  3(l-uZ)  -V  +  12  4  -  10  u  -2- 

p4  p4  V  P  P 


**i 


+  2(l-u2)  -V  +  36  G!j   +8   p2  G}"    +  9  u -| 

P  P 

*  **  r** 

9      G9  ?      G?  ,         2x2      2 

-   [8  -   23  u2]  4  -   10  u(l-u2)  4r  +   ^"u   )     ~H 

P  P  P 


•A-*1 


G9  ?     G?  2\    G2 

14  u  -4  +(8-18  iT)  -4-  +  2  u(l-u   )  — *- 

p2  P  P 


+  20  u  G£  +  4(l-u2)G*"+  8  p2u  GJ' ' .  (4-35) 

4-4     The  Right-Hand  Sides  of  the  Eight  Equations 
The  right-hand  side  of  the  vertex  equation, 

-   46Y/V+-VXV],  (4-36) 

is  compiled  through  multiple  layers  of  matrix  multiplication.  It  is 
best  represented,  not  by  an  exhaustive  itemization  of  each  and  every 
term  but  by  definition  of  the  various  layers. 

The  first  layer  is  to  define  the  matrix  function  F 

fXv  =  s(p+fc)  |^  (p+K,p)  +  srP+fc)rVfc,p)  ^-  s(p)s"1(p) 
°Pm  \ 


v 


V 
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A         ,f  A9A^  o  B'B?       B? 


v  A2B2  +   .    va       B2  +  .  v     A2B2       B2A2^ 


=  S(p+R)Z 


Av 


where 


,Xv       3r     ,   ^Xr  0  v, 


3P, 


where 


+  r   [-2pVPPD  +  2p  0MPD  -  y  ABD  +  0Y  BBD] 


A~A~         o   B«B2 

ppd  +  -4-^  -  p  -4- 


(4-37) 


(4-38) 


(4-39) 


MPD 


0     9  DrtM^ 


(4-40) 


ABD  = 


A2B2 


(4-41) 


BBD   =  -^  . 
U2 


(4-42) 


The  ZXv  is  a  tensor  with  twenty-eight  different  linearly  independent 
combinations  of  the  available  matrices.     These  twenty-eight  form  a  group, 
fourteen  elements  of  which  are  odd  in  gamma  matrices,  fourteen  elements 
are  even. 


"odd 


Av 


A  v 


x,y-. 


Av, 


Z1   +  0p  p  Z2  +  0pAk  Z3  +  g/vvKZ4 


A  v 


A,  v 


A  v. 


A  v. 


+  Kp V z5  +  KpAkvz6  +  pAYvz7  +  YAP  Z 
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'Av^V/Ao^^Mi 


Av8d)  5  ,        ,      AcxvcJ)  5     .    7 


'$"12 
+  e        Y  V3kok  Z14- 


(4-43) 


,Av 


K«  ■  ^\  +  >X*Xz  +  ^V6Ze3 

♦  1o%  ♦  9%  ♦  -°\p/p%6 

*  A^We7  ♦  iatapapvZe8 


where 


r    h 

Z,  =  -  G  BBD  +  -A  +  2  -p  ABD  -  ul  BBD 
1      °      ?l  PK 


Z  =2F^ 
^2   ^h  pk 


H, 


g,  -  g;   g,   g,  ppd 

2  -J  +  2  4  -  u  -1  -  2  1 
p     P     P        P 


+  4u  -jj  MPD  -  4  -4-  MPD 

P         P 

kGl       k  Ho  k 

Z=^±-  ^G9  BBD  -   2  -S  ABD  +  £  I   BBD 
3         3         p    2  2  p 


Z,   =  -  G0  +  2  H9  ABD  +  pk  I   BBD 
4       p     2  2 


(4-44) 
(4-45) 


(4-46) 
(4-47) 
(4-48) 


Z5=-\G2-u\G;+|G2BBD  +  2|G-   -  2  I  Gw  PPD 
P  P 


Hn  k 

+  2  -|  ABD  -   4  HQ  MPD  -   4  H2  MPD  -  £  I    BBD 
P 


(4-49) 
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V? 


7     =  -  4  ABD  +  G     BBD  +  4  +  G,   BBD  +  uG2  BBD 
7         pk  °  p 

z8  =  2  Go  "  -T  Go  "  2  Go  PPD  +  Go  BBD  +  4  1  Hl  MP° 


.   2  4  ABD  +  4  £  uH9  MPD     +  ul   BBD 

pk  L 


k  u"2 


G, 
9  =  k    p 


ln  =  k  _£  _   2  H2  ABD  -   p  k  I   BBD 


k  G0   BBD  -   2  -|  ABD  +  £  I   BBD 
P 


Z10  =  "     pU2  DDU  ■   '    J   —■       P 


Zn=-4H2MPD-V+2fl'-uV*-2flPPD 


Z„   =  G     BBD  -   2  -[  ABD  +  u  !   BBD 


Zn  =  2  H2  ABD  +  •*  I   +  Pk  I   BBD 


7     ___L_  +  2Ir-u-^-2  4-ppd  +  h  BBD 

Zei   ■       kp3  P.k  kp3  Pk  Pk 


Gl 

+  2   G     MPD  +  2  G1   MPD  -  -\  ABD  +  2   uG2  MPD 


+  2   u 


Pk 


Hi  Ho 

2  -^  BBD  +  2   uG2  MPD  +  2  u  ^ 


+  2  -f  BBD 
pk 


(4-50) 
(4-51) 


(4-52) 

(4-53) 

(4-54) 

(4-55) 

(4-56) 

(4-57) 

(4-58) 


(4-59) 
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Ze2  -^  -  -  G2  ABD  -  2  HQ  BBD  -  2  Ho  BBD 


Z   =  -  I  ABD  +  2  H9  BBD 
e3   p  I 


(4-eo; 
(4-6i ; 


Ze4  =  -  G  ABD  +  2  4  +  2  £  H,  BBD  +  2  £  u  Ho  BBD 


pk   '  k  "1 


(4-62) 


Z   =  -L  -  G  ABD  +  2  £  H,  BBD  +  2  £  uH?  BBD 
es   pk    o       k  l        k       £ 


"e6 


,  H     H 

-  2  -  G9  MPD  -  4  -4  +  4  -| 
P  2        P4    P2 

Ho        k 
4  -4  PPD  +  2  -  I  MPD 


2  u 


(4-63) 


(4-64) 


e?     p3k 


P3k 


H- 


H- 


Ze8=-2G0MPD  +  2-31--4^+2u^  +  4^PPD 


P3k 


Hl 

pk 


eg    pk 


2  u  I  MPD 

* 
H, 


"eio   P  2 


-  Go  ABD  +  2  -4  +  2  H  BBD  +  2  H9  BBD 


(4-65) 


(4-66) 
(4-67) 

(4-68) 


Ze„ 

=  £  BBD  -  ^  ABD  +  2  ^  HQ   BBD  -   2  ^  BBD 

(4-69) 

Z 

ei2 

=  4  \\2  -   2  \  H*  -   4  H2  PPD  +  2   Ho  BBD  -   2   pk  I  MPD 
P 

+  -  I   ABD 
P 

(4-70) 
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"e13 


H 
2  4  +  2   H?  BBD  +  £  I   ABD 
P  ' 


H. 


o 


Z  =  2  -£  -   2  H0   BBD  -  £  I   ABD 

ei4  p2  2  P 


Since 


-Av 


2)zXv 
1    .Av       Bl 


S(p')Z 

A 


*tz 


(pf+K)Z 


Av 


Feven  =  pV*,  +  PVw2  +  ^VBW3    +  'A 


A  v.    a 


A      .    aE 


+  c^5  +  pViaa\p6H6  +  P >aia     W  W7 


t  ioXVpX  +  iooXk„kvW0  +  1oovp\M 

aA.    _v, ,        ,    _•  ^Aa_   ,.v, 


Pap  w8  T    lu     V  "9  T   lu     F   V10 

A  va 


4  ipVVll   +  iaUAkap"W12  ♦  ia">ak"W13 


-Av 
"odd 


.Av, 


A_v 


A.  v. 


Av, 


V]  +  RfpApvV2  +  ^pAkvV3  +  gAVKV4 


X_v, 


.A,;,.V 


A  v. 


Av 


+  KPPVV5  +  pAKkvV6  +  PW7  +  yW8 
+  /kvVg  +  ^%\^/ho 

-Xa3VV3kaPVvil    +  ^Wl2 
+  ^VaV13  +  ^VekakV 


where 


13       N  "12- 


(4-71) 
(4-72) 


(4-73) 


(4-74) 


(4-75) 


W1    -  AD  Z       +  BD[-    (p2+pk  u)Z2  -    (1  +^)Z5  -   Z7  -  Zg]  (4-76) 

9  2  2 

W?   =  AD  Z       +  BD[-    (p  +pk  u)Z3  -    (k  +pk  u)Zg  -   k     Zy   -  Zg 
£  "2 

W-  =  AD  Z„„  +  BD[Ziq  +  k2Z1?] 


(4-76] 

(4-77) 
(4-78) 
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W4  =  AD  Z       +  DB[(p2+pku)Z12  -    (1   +  |  u)Z13 
W,   =  AD  I       +  BD[-    (p2+pku)Z1   -    (1   +1  u)Z4] 
W6  =  AD  Ze6  +  BD[k2Z2  -   Z5  -   Z1Q  -  Zn] 


W-,   =  AD 


Z.,  +  BD[Z0  -   Z6  -   Z1(J  -   ZH] 


7      ""  ^e7      ""  e 

W8  =  AD  Zeg  +  BD[-   Z8  +   (1   +{  u)Zn   +  Z12] 

Wg  =  AD  Z      +  BD[Zg  +  (p2+pku)Z]4  +  Z]3] 

W1Q  =  AD  ZelQ  +  BD[k2Z7  +   (p2+pku)Z10  -   Z]3] 

wn  =  AD  zen  +  BD["  z7  +  (1  +^  u)zio  "  zi2] 

W12  =  AD  Zei2  +  BD[k2Z8  +   (p2+pkU)Zn    +  Z13] 

9  2 

Wl3  =  AD  Z         +  BD[-   Zg  +   (k  +pku)Z14  +  k  Z]2] 

W14  =  AD  Ze14  +  BD[k2zi   "  Z4] 
and  where 

V]   =ADZ1   +BD[-  Ze5  +  |  U  Zeu+  Zeu] 

V2=ADZ2  +  BD[-  Zei   +  ^^)Ze6^e8  +  Ze11] 
V3  =  AD  Z3  +  BO[  -  Ze2  +  pku  Ze7  +  Zel3+k2Ze7+k2Zeil] 
V4  =  AD  Z,  +  BD[-   p2Zei4  -   k2Ze5  -   pku  Zei4] 
V5=ADZ5  +  BD[-p2Ze6-Zelo-Zei2-k2Zei-pkuZe6] 

V6  =  AD  Z6  +  BD[-  (p2+pku)Ze7  -  Zeg  -  Z^  -   Z^] 


(4-79) 

(4-80) 

(4-81) 

(4-82) 

(4-83) 

(4-84) 

(4-85) 

(4-86) 

(4-87) 

(4-88) 

(4-89) 

(4-90) 
(4-91) 
(4-92) 
(4-93) 
(4-94) 
(4-95) 
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?  =  AD  Z7  ♦  BD[-  Z       +{  u  ZeiQ  -   (p2+Pku)Zell   +  Z^]  (4-96) 


V8  =  AD  Z8  +  BD[Z       -    (p2-Pku)Z       +(1+|  u)Zfil2]  (4-97) 


Vg  =  AD  Zg  +  BD[(k2+pku)Zeg  -    (p2+pku)Zei3  +  k^]  (4-98) 

V1Q  -  AD  Z1Q  +  BD[Ze3  +  ZeiQ  +  A_l  (4-99) 


Vll   =  AD  Zll   +  BD[Ze12  "  Ze3  +  k2ze8] 


(4-100) 


-  Z       +  k2Z 
12 

V12   =  AD  Z12  +  BD[(1   +lU)Ze3  +  Ze4]  (4-101) 

V13  =  AD  Z]3  +  BD[-   k2Ze4  +   (p2pku)Ze3]  (4-102) 

VH  -  AD  ZU  +  BD[Zeg  +  Zei3  -  Ze3]  (4-103) 

Another  way  to  write  the  right-hand  side  of  the  vertex  equation  is 
to  notice 

-  4  *  vXv+  if  3 

-  -  <W  «4  ■«,  -  T  ^fXV>-  (4-104) 

The  next  layer  of  definition  is  to  choose 

TXa  =  [|  9   -  4  a  1FXV  (4-105) 

L2  3  av  2  avJ 

where 

T     =  p^V  +  PVl   +  eXavBy5kp6T 
even  v  v     e-j  v         e2         a  p  e3 

+  iovXT  e4  ♦  9iVTe5  ♦  PXPVTC6  ♦  ioa6k6PXPUk  Te? 
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ctA  v 


ACt  |.Vn 


♦  io"Vt     ♦  -"ApvTe,2  +  <°~V  Te13 


.   aBi  XvT 

+  10  Bkap6g    Teu 


^dd  ■  *%   +  ^VT02  +  »^»3  +  gXVKT04 


X  vT        .   .  X_v, 


+  KpVt05  +  KpVl       ^  PVT07  +  Y^P  TQ 


X,  vT       j.     va3<K  5 


+  /kvTog  +  £-VVap^Tol0 


+  EHY,kT     +eYapVyAP«T 


E        TY  Y 


'(jrci'013  '     <t>  op  °14 

where  the 

T„,=l«,-^W6-IH7-IW8-!Wn 


ei       2  "1       2    k 

e2  =  2  H2    '    2  F     "6 


T       =  |  Wj,  +  i  P2  W  ,+\  Pku  W7  +  |  W1(J  +  j  W12  +  \  WH 


c;       |w3-jwi2-lwi3+ln14 


Te44W4-IW5+IW9+ifW12-7P\-^W13 
T       =4wc-|wa-1^124p2W8+1^W13-1w9 


05       2  W5  '   2  w4  "   2  1T12       2 

T       =  W 
e6 


Te7 

=  w7 

T 

e8 

=  W8 

T 

eo 

=  w9 

(4-106; 


(4-107) 


(4-108) 

(4-109) 

(4-110) 

(4-111) 

(4-112) 

(4-113) 

(4-114) 

(4-115) 

(4-116) 
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1   ,,       ,  1 


Te       =  !  W10  +  \  W2  +  I  P2W6  +  \  Pku  W7   +  2  W14  +  2  W12 
Tei2=lW12"IW3-IW14+IW13 


1    ,,  1    u         _   1 


TQ,.   =|WU+JW3-  i«12-   2W13 


-14 


To2  =  V2 
TO3=!V3-iV5-V10-IVll 


T04-!V4-lV9-lp2vil-Vl 
To5=lV5-iV3  +  V10+iVH 


3  "   2 


pku  V 


14 


(4-117) 
(4-118) 
(4-119) 
(4-120) 
(4-121) 

(4-122) 
(4-123) 
(4-124) 
(4-125) 
(4-126) 
(4-127) 


To6  ■  V6 

T0?   ■  3«7  *\  V,   ♦  \  p2V24f  V3  ♦  \  f  V5  ♦  1  V6  +  \  V8      (4-128) 


3„     lu      IE" 


iv. 


T„s=iViVl-2    k'll-^-   2  "14 


08 

T09=IV9-?V4+1"2V11   -V13+IpkuVu 
T010=!V10-1V3+|V5+1V10+1V11 


T.n-V" 


1 


T012  "  2  V12  +  ?  Vl   --SW8*7¥  VH+iVH 


(4-129) 
(4-130) 
(4-131) 
(4-132) 
(4-133) 
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T013  =  2V13-!V4+!p2vn    +;UuV14  +  2V9  (4"134) 

Toi4      V™ 

The  right-hand  side  of  the  vertex  equation, 

.  e  _L_T*a  ,  (4-136) 

ra 

is  collapsed  into  a  group  of  eight  linearly  independent  matrix  terms 
by  the  summation  over  a.     It  is  clear  that  in  order  to  obtain  the  first- 
order  partial  derivatives  of  TAa  type  functions  the  first-order  partial 
derivatives  of  the  WXv  and  ZXv  had  to  be  known.     Initial  work  on  this 
main  program  tried  to  avoid  this  confrontation  by  seeking  the  deriva- 
tives of  lXa  by  a  standard  numerical   process.     This  was  found  unsatis- 
factory for  two  reasons.     One  was  the  numerical   calculation  added  sig- 
nificantly to  the  time  parameter  of  the  program.  The  other  was  the 
precision  which  this  time  bought  was  inadequate.     This  method  was 
shortly  abandoned  in  favor  of  compiling  the  algebraic  forms  of  the 
partial   derivatives  of  TXa,  WAv  andJXv.     These  are  recorded  in  the 
program  included  in  Appendix  C. 

In  conclusion  the  right-hand  side  of  the  vertex  equation  is 
comprised  of  eight  linearly  independent  matrix  terms.     The  coefficients 
of  each  of  these  terms  are  given  in  Table  4-2. 
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TABLE  4-2     Right-Hand  Side  of  the  Vertex  Equations 

Equation  1     Coefficient  of  p  j> 

'  ii       *  2    '  d  ' 

e[2T       -4T       +6T       +2  p  T       +  2  £  u  T 
bL^   'oi       T?    02  02  H     o2  k        o3 


+       pk        To3       Z  V       p2  V' 
Equation  2  Coefficient  of  p  K 
E[T°3  +  2To4-7ToV5T05  +  2p2T°5 


i  9       \j       *  U       *    „ 

+  2  Pku  To6  +  (,-u  '  ?  To6      P  V- 

Equation  3  Coefficient  of  y 

^  +  T„7  +  4  To8  +  2  P2  To8  +  2  I  u  To9 

pk  ogJ 

Equation  4     Coefficient  of  e  aWy  Ya^Pr 


o      i  V      *  * 

ell         +  4  T         +  2  p     T         +  -  T„       +2T 
L  o10  'on  v       on       p     o12  o13 


-  "      T         _  2  pku  t'       +-  (1-u2)  T*     ]. 
p2     'o13  H       'oh       P  o14J 

Equation  5     Coefficient  of  ia     kaPRP 


e[6  Tee  +  2  p2  T;6  +  2   pku  T^   +|  (1-u2)   T^ 

+  2T         -  -^o  T         +  -  T         +2T         -4T  . 

e10       p2     eio       P     en  e14       p2     e-,4J 
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Equation  6     Coefficient  of  ia     Pa 


^4-y:4-5Te8-2P2Te8-Teil 


2  M  j        _    (i-u2)  4-  T*     ]. 
k    'e13       U       '  pk   le13J 


Equation  7  Coefficient  of  ia  k 


e[  -  T*  +  2  pku  T*   +  (1-u2)  |  T*  +  T 
L  P  e4    F    e9        P  e9    e10 


+  4  T         +2  pV        -  T         +  T     J. 
ei2  e12        ei3        ei4J 


Equation  8     Coefficient  of  p 


u  Te5] 


CHAPTER  V 
CHECKING  THE  ALGEBRA 

In  performing  all  the  myriad  matrix  operations  necessary  to 
express  the  vertex  equation  we  found  that  working  out  the  algebra  was 
extensive,  repetitive  and  subject  to  error  whenever  the  practitioner's 
strictest  attention  lapsed.  After  an  unoriginal  effort  was  made  at 
wading  through  the  whole  expression  term  by  term,  it  was  necessary  to 
confirm  the  results.  Faced  with  the  prospect  of  having  to  repeat  the 
monumental  process,  we  drew  the  conclusion  that  this  kind  of  work  is 
better  done  by  machine.  Efforts  were  made  to  solicit  the  use  of  a 
computer  language  capable  of  symbolic  algebra. 

The  software  chosen  was  a  programming  language  from  the  University 
of  Utah  called  Reduce.  The  program  offered  a  great  variety  of  general 
algebraic  calculating  facilities.  Amongst  those  of  interest  were 
symbolic  differentiation,  automatic  and  user  controlled  simplification  of 
expressions,  calculations  with  gamma  matrices  and  tensor  operations. 
With  all  of  these  capabilities  it  offered  a  \ery   promising  approach  to 
the  unwieldy  task. 

It  was  found  that  Reduce  provided  a  direct  and  easily  acquired  check 
on  the  left-hand  side  of  the  equation.  The  partial  differentiation  was 
performed,  including  all  nine  possible  mixed  derivatives  with  respect  to 
p  and  u  up  to  third  order.  A  quick  and  accurate  check  of  the  original 
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left-hand  side  was  achieved.      Furthermore,  this  confirmation  was  achieved 
with  only  a  reasonable  expenditure  of  time  invested  in  becoming  familiar 
with  the  language. 

However  Reduce  was  less  easy  to  make  use  of  on  the  right-hand  side 
where,  in  addition  to  first  and  second  order  mixed  partial  derivatives, 
there  were  three  layers  of  matrix  operations  to  undergo.     The  size  of 
the  arrays  quickly  outgrew  the  allotted  workspace  in  the  machine.     All 
of  the  calculations  had  to  be  performed  in  steps  and  then  the  results 
were  summed  afterwards.     A  further  investment  of  time  would  have  been 
necessary  to  learn  how  to  design  the  output  to  be  displayed  in  a  form 
more  amenable  to  easy  checking.     Despite  this  user  related  ineptitude, 
a  complete  expansion  of  the  right-hand  side  was  obtained. 

One  of  the  reasons   Reduce  was  found  to  be  less   useful   than  expected 
on  the  right-hand  side  was  the  operations,  though  limited  in  variety, 
involved  a  proliferation  of  terms.     It  was  almost  a  waste  to  bring  all 
of  the  ingenious  operational  flexibility  of  Reduce  to  bear  on  what  was 
only  a  problem  of  tensor  and  matrix  multiplication  and  large-scale  sort- 
ing of  terms. 

The  right-hand  side  could  be  written  down  in  a  way  that  was  better 
designed  for  checking  by  giving  up  the  luxury  of  exhibiting  the  right- 
hand  side  in  terms  of  the  basic  functions  A,  B,   F,  GQ,  G2,  HQ,  H-| ,  fi, 
and  I.     The  final   form  settled  upon  for  the  right-hand  side,  as  it 
appeared  in  the  previous  chapter,  was  expressed  in  a  hierarchy  of  defin- 
itions.    The  right-hand  side  was   given  in  terms  of  the  28  components  of 
TXa  tensor.     The  28  components  of  TXa  were  given  in  terms  of  the  28 
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components  of  the  FAv  tensor.     The  FAv  tensor  was  defined  in  terms  of 
the  28  components  of  the  ZAv  tensor.      Finally  the  28  components  of  the 
ZAv  tensor  were  defined  in  terms  of  the  basic  functions,  A,  B,  F,  GQ,  G1 , 
G?)  H   ,  Hp  H2  and  I.     Each  layer  of  redefinition  represents  the  execu- 
tion of  another  tensor  operation. 

Table     5-1  summarizes  the  five  steps  taken  to  define  the  right- 
hand  side.     The  first  step  was  to  define  a  tensor, 

i^  =_  2ppd  rAPv  -  abd  rV  +  bbdtVv+  2MPD  rA0pv.  (5-1) 

The  abbreviations  PPD,  ABD,  BBD  and  MPD,  represent  combinations  of  the 
electron  functions,  A  and  B,  which  were  defined  in  Eqs.    (4-39),   (4-40), 
(4-41)  and   (4-42).     Step  2  forms  a  new  tensor, 

WAv  =  {J  +  *)ZAv.  (5-2) 

Step  3  forms  yet  another  tensor  out  of  the  former  two  tensors, 

FAv  _  ^   zAv  _  h  wAv  (5_3) 

h  D1   L  D1   W 

where  D]   =  (A2  -  p2B2). 

Step  4  forms  the  last  tensor, 

TAa  =  [gav  +  \  YaYv]FAV-  (5-4) 

Finally,  in  Step  5,  the  a  index  is  contracted  by  a  differentiation  with 
respect  to  pa.     The  right-side  equals 

_JL     TXa.  (5-5) 

8p 
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TABLE  5-1     Formation  of  the  Right-Hand  Side  of  the  Vertex  Equation 

Step  l.T     ZXv  =  -2PPD  TApv  -  ABD  r\v  +  BBD  rX0YV 
+  2MPD  TX|z!pv 

Step  2.       WXv  -  (0  +  i)lXv 


c+        -  t     cXv  _  Al    7Av       B1   wAv 
Step  3.       F       =  -K-  Z       -  n-W 

ul  ul 


Step  4.       T       =  [gv  +  2  Y  YVJF 


Step  5.     Right-hand  side  =  -  e — -  T  a 

dp 


+The  abbreviations  PPD,  BBD,  ABD,  and  MPD  were  defined  in 
Eqs.  (4-39)  through  (4-42).  The  abbreviations  A-j  and  D1  were 
defined  in  Eq.  (4-24) 
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After  the  right-hand  side  is  separated  into  layers  so  that  the  full 
length  and  breadth  of  the  right-hand  side  is  disguised,  a  large  number  of 
operations   still   have  to  be  performed.     Even  a  simple  multiplication 
like  rApJ  or  (tf+jOzAv  involves  a  large  number  of  steps.     Consider  the 
procedure  necessary  to  perform  the  multiplication  of  a  single  element 


of  r\  say  EXa6SVaP6  W  '  Wlth  *' 


2  e  e%x$     aP3P     °       pk 


=  -{[2gya+2g^+2g^]kaP3p^ 

=  -  [TaB\p  pA  +  ipku  cAapa+  ip2aaXka]  ^     (5-6) 


Table  A-l  was  used  to  obtain  the  product  y  Y.Y^  in  tne  second  line. 
Equation  A-12  was  used  to  go  from  the  third  to  fourth  line. 

It  is  easy  to  forget  a  sign  or  reverse  the  order  of  two  indices 
when  a  large  number  of  such  operations  are  performed.     However  it  is 
possible  to  express  the  multiplication  rules  for  matrix  operations  in 
a  very  simple  way  that  allows  the  practitioner  to  do  the  same  calculation 
in  his  head  without  ever  consulting  Table  A-l.     This  simplified  method 
can  be  used  to  supply  an  algorithm  to  enable  a  computer  to  do  the  same 
kinds  of  manipulations  in  a  common  language  like  Fortran  which  does  not 
possess  symbolic  capabilities.     The  basis  of  this  method  was  designed  by 
H.    S.    Green. 
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To  explain  the  simple  multiplication  method  it  is  necessary  to  alter 
slightly  the  form  of  the  definitions  of  vector  functions  like  r  and 
tensor  functions  like  ZAv.  The  expressions  used  in  Chapter  IV  were 
evolved  through  a  historical  process  that  did  not  necessarily  produce 
the  most  symmetric  arrangement.  In  this  chapter  it  will  be  shown  that 
when  some  small  changes  are  made,  things  become  very  much  easier. 

In  Chapter  IV, 

P  K 

+  eXoB<l>  y5Y     PDk    X  •  (5-7) 

Now  a  slightly  altered  form  will   be  used. 
rA  =  p\  +  y\  +  PV3  +  pAM4 

+  Pxia^kap3£5  +  iaAV6  +  ™XXh 

+  ^'  r\W8  (5'8) 


where 


£1 

F 
"  pk 

£2 

=  Go 

*3 

Gl 
V 

l4 

G2 

'  Pk 

h 

2Ho 

"Pv 

*6 

2H1 

-  -  pk 

I 

7 

2H2 

i8 

I 
"  pk  * 

(5-9) 
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The  new  form  of  rA  is  equivalent  but  notice  that  the  order  of  the  indices 
in  the  sixth  and  seventh  components  has  been  changed.     Throughout  this 
chapter  it  will   be  assumed  that  any  general  vector,  say  V   ,  is  expanded 
in  terms  of  these  same  components. 

VA  =  pAVl  +  yAv2  +  pV3  +  PA*v4 

+  pVk^  +  -\v6  +  iaX\v7 

.      XaB*  5     .    n  u  (5-10) 

Similarly  it  will  be  required  that  any  general  tensor,  T  v,  will  be 
expressed  in  terms  of  the  following  components  only. 

txv  =  Pytl  +  Py,*t2  +  pV^t3  +  PViaa6kap6t4 

v  A.  v.    Act     ,  v.    Act.    . 

+  PVY  t5  +  p  la     pot6  +  p  ,o     kat7 


♦   pV^V^tg   ♦   pVtg   +   P»1o"Pat,0 

,    •    vA.         ,      Xa\xj>  5„  _  j.        ,      Aav<j>  5     t  t 
+  na     t]3  +  e       ^y  Y(J)Pat14  +  £         Y  Y^at15 

+   eXVa3Y5kaP6t16   V  pVt]7   +  p\^t18  +  pXk^tlg 

+  pVio-Ve^o  +  Avt21  +^ia%at22 


+  kWt^  +  kVa^\kaPBt24 

+  gAvt25  +  gA>26  +  gXv^t27  +  gXviaa6kaP3t28.  (5-11) 
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Now  that  the  groups  of  matrices  have  been  carefully  selected  for 
any  general  vector  VA  or  tensor  TAv,  the  following  notation  will  prove 
extremely  useful.  The  components  of  a  vector  will  be  denoted  by  the 
following  brackets. 

pA  =  (p\  0,  0,  0) 
p\  =   (pY  0,  0,  0) 

?H  =  (p\  k,  o,  o) 

pXiaa6kaP3  =  (pY  k,  0,  0) 
YA  =   (0,  0,  Y\  0) 
iaAV  =  (*,  0,  Y\  0) 


10 


Aa 


k     =  (0,  i,  y  ,  0) 


a 


cXaB\\kaP3  =  (Iff,  fc,  Y\  0).  (5-12) 

The  components  of  a  tensor,  TAv,  will  be  denoted  by  the  following 
brackets. 

pApv  =  (pV,  0,  0,  0) 

pV*  =  (pW,  o»  o>  o) 

pApvk  =  (pApv(c,  0,  0,  0) 
PApviaaBkaP6  =  (pVn,  L   0,  0) 
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PV  -  (pv>  o,  Y\  o) 

pVio%     -   (pV^,  0,  Y\  0) 
pviaA\  =  (P\  k,  y\  0) 
pV^Y^k^p  ■  (pv0  .  i.  y\  0) 

pV  -  (PX>  0»  0'  yv) 
P^ia^Mp^.  0,  0,  YV) 
pAiaV\  =   (p\   i,  0,  YV) 
pV«WY5Y  kapp  =  (p*„,  i,  0,  YV) 


vA 


A         Vx 


iaVA  =   (0,   0,  Y\  YV) 

^aV^\ka  -(0J,Ayv) 
£AVa6Y5kaP6   ■   (*,    l(.   y\   YV) 


.   vX 


A       v> 


iaVA  =  (0,  0,  Y\  YV) 
:XaV*Y%Pa  M^O.A/) 
;AaVVVa  =  (0,  4,  Y\  YV) 
:AVaeY5kaP6  =   (K,   *.  Y\  YV) 
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pV  =  (P\  kv,  o,  o) 


pAkvpf  =  (py,  kv,  o,  o) 
phH  =  (P\  kvk,  o,  o) 

pAkviaa3k  Pft  =   (pV,   kHt  0,  0) 

a  p 


YV  =  (o,  kv,  Y\  o) 

kviaA\  =   (0,   k\  Y\  0) 
kviaA\  =   (0,   kv/,  A  0) 
kV«BVyaPB  =   („,   kV^  Y\  0) 


gAv  =   (0,  0,   gAv,  0) 


gAvt*  =   (0,  0,   gAv,  0) 


Av 


i  =  (0,   /,  gAv,  0) 


gAviaa\p6  -  (pf,  J,  gAv,  0).  (5-13) 

The  rule  for  the  mapping  of  each  component  into  the  bracket  notation 
is  straightforward.     The  first  position  in  each  bracket  holds  all  electron 
momenta  terms;   p   ,  pv  and  p1.     The  second  position  holds  all   photon  momenta 
terms,  kv  and   i.      (The  kA  term  does  not  appear  here  because  only  the  trans- 
verse part  of  the  vertex  equation  has  been  considered.     However  it  is 
possible  to  extend  the  bracket  notation  to  include  longitudinal   components 
without  any  additional   complications.)  The  third  position  holds  Y     and 
gAv.     The   fourth  and   last  position   holds  y   . 
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Now  to  convert  the  component  into  its  bracket  merely  tabulate  the 

occurrence  of  Y3Pg>  y\,  y\  YV,  p\  PV>  ^  and  9VV  and  Put  them  int0 
their  appropriate  "home"  positions.     For  example,  consider  p  ia    ka-     It 
contains  p\  yv  and  k  Ya  so  its  bracket  is   (p\  L  0,  YV)-     Notice  that 
although  there  is  a  unique  bracket  notation  for  each  component,  it  is  not 
necessarily  possible  to  guess  from  the  bracket  notation  what  the  original 
choice  was  for  the  component. 

(0,  i,  0,  0)  =  ioaBPak3 
or 

(p\  i,  0,  0)  =  iaapkap6? 

The  originally  selected  meaning  of  (p",   I,  0,  0)  must  be  preserved  so  it  is 
the   latter  relationship  which  is  the  correct  one. 

Now  it  will   be  shown  that  multiplying  the  components  of  the  vector 
VA  or  tensor  TAv  by  a  tern  like  ft  k\yvPv  »kv>  etc.   is  simply  done  by 
observing  a  few  rules.     To  multiply  by  a  unit  matrix  vector  like  pv  or 

k    merely  add  the  vector  to  its  correct  position. 

v 

(*.  L  y\  0)pv  -  (pV(*,   I  y\  0)  (5-14) 

To  multiply  by  a  matrix  like  yV,  i  or  t  from  the  right,  move  the  matrix 

across  the  bracket  from  right  to  left.     Each  time  the  matrix  crosses 

another  matrix  take  the  scalar  product  of  the  two.     Remove  the  scalar 

products  to  the  outside  of  the  brackets. 

(pY   p,  0,  0)jrf  -     P2(p\  0,   0,  0).  (5-15) 
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One  term  will   occur  for  each  scalar  product  and  one  term  will   occur 
when  the  multiplying  gamma  matrix  reaches  its  "home"  position, 

(PV,  k\  0,  0)*  ■  (pV   kV     K,  0,  0)  +  pku(pX,  kv,  0,  0).        (5-16) 

Finally,  reverse  the  sign  of  alternate  scalar  products, 

(pV  It.  0,  yv)t  =   (PY   kvl(,  0,  0)   -   k2(PV  0,  0,  yV) 

+  Pku(p\  L  o,  Yv).  (5"17) 

In  order  to  multiply  a  tensor  or  vector  from  the  left  the  rules 
remain  the  same  except  that  the  multiplying  term  is  moved  across  the 
bracket  from  left  to  right. 

Recall   the  example  given  earlier  of  the  multiplication  of 

XaB4>  5     k         I    b     u  from  the  right.     This  example  can  now  be  written  as 
Y  Y4>  crB  pk    J  r 

(0,  /,  yA,  0)  -^  i    ■  [(pV  L  0,  0)  -  pku(*.  o,  /,  0) 

+  P2(0J,A0)]^.  (5-18) 

Translating  the  bracket  notation  back  to  the  original   components  it  is 
found  that 

2.    Aa,    t    I 
+  P  io     ka]  ^ 


APerJk  =  Lpi°    k«pb 

2,Aa.    -,1     _  (5-19) 


This   is  the  same  result  which  was  achieved  in  Eq.    (5-6),  yet  it  was 
achieved  without  using  Table  A-l.     With  little  practice  the  products 
can  be  arrived  at  as  quickly  as  they  can  be  written  down.     This  process 
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of  bracket  manipulation  is  not  only  many  times  easier  for  the  human 
mind,  but  it  also  lends  itself  to  the  writing  of  an  algorithm  for  exe- 
cuting similar  products  in  Fortran. 

It  is  also  possible  to  predict  easily  the  products  of  a  contraction 
of  a  vector  Va  or  tensor  TXa  with  another  vector  like  pa  or  gamma  matrix 

like  y  .  To  contract  with  a  momentum,  merely  perform  the  implied  con- 

'a 

traction.     To  contract  with  a  gamma  matrix  it  is  necessary  to  first 
move  the  gamma  matrix  across  the  bracket,  taking  alternate  signs  of 
each  possible  scalar  product.     While  doing  so,  perform  the  implied  con- 
tractions on  each  term  in  the  product. 

A  summary  of  the  rules  for  bracket  operations  is  given  in  Table  5-2. 

Returning  to   Table    5-1   it  is  easy  to  see  that  a  knowledge  of  the 
following  operations  is  all   that  is  needed  to  generate  the  right-hand 
side,  VX0,  VApv,  vV,  yV,  i  TXv,  i  TXv  and  yjXv,  where  VX  stands 
for  any  general  vector  function  and  TXv  stands  for  any  general   tensor 
function.     Using  the  expressions  for  V     and  T  v  given  in  Eqs.    (5-10) 
and   (5-11)  and  using  the  method  of  bracket  operations,  these  seven  products 
are  easily  written  down. 

(1)     vV  =  PA(P2V2  +  pku  v3  +  v5)  +  (pX|^(v1  +  pku  v4  +  v6) 

+  pAk(-p2v4  +  v7)   +  pxiaa6kap6(v8  -  v3) 

+  YX(  -  P2v6  -  pku  v7)  +  iaXapa(  -  v5  -  pku  v8) 

+  iaXaMp2v8)    +  eXaeVVaP3(v7)  (5-20) 
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TABLE  5-2     Bracket  Operations 

A.  Multiplying  by  a  momentum:     Add  the  momentum  to  its 
"home"   position. 

B.  Contracting  with  a  momentum:     Merely  contract  the  momentum 
with  its  proper  complement  and  move  the  scalar  product 

to  the  outside  of  the  bracket. 

C.  Multiplying  by  a  gamma  matrix: 

(i )     Move  the  matrix  across  the  bracket  from  right  to 
left  in  order  to  multiply  from  the  right.     Reverse 
directions  to  multiply  from  the  left. 

(ii)     Take  alternate  signs  of  each  scalar  product  that 
can  be  formed. 

(iii)     If  there  is  no  matrix  in  "home"  position,  include  a 
term  with  the  multiplying  matrix  in  the  "home" 
position. 

D.  Contracting  with  a  gamma  matrix: 

(i)     Perform  steps   (i),   (ii). 

(ii)     Perform  the  implied  contraction  as  the  gamma  matrix 
is  moved  across  the  bracket. 
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(2)     VApv  -  pV(v-,)   +  pV0(v2)   +  PXP^(v3)   +  PViaaBkaP3(v4) 

♦  PVPX(v5)   +  pViaX\(v6)  ♦  PViaA\(v8)   +  pV^y\kaP6(v8) 

(5-21) 


i-    Aa, 


(3)     VAYV  ■  pV(v?)   +  PAP^(-v4)   ♦  pV(-v6)  +  Pv1aAaka(v8) 


A.   va 


A.   va, 


+  PV(v1)   +  p'ia^p^)  +pAia^ka(v3) 

+  pAe-^\kaPB(v4)  +  ia^(v5)   +  £n5Va(v6) 

+  pAkV(v3)  +  pW(v4)  +  pAkv)((v7)  +  pAkviaaekaPB(v8) 

+  Yxkv(-v7)  +  kviaA\(-v8)  +  gAv(v5)  +  gAv0(v6) 

+  gA^(v7)  +  9AViaa6kaP6(v8)  (5-22) 

(4)     yvVA  =  pApv(v2)  +  pV(((v4)  +  PV(v6)  +  PVia\(v8) 
+  pV(v,)  +  P^a^pj-vg)  +  pAiavaka(-v3) 
+  pAeVa6\%kaP6(v4)   *  iavA(-v5)  +  eA^y\pa(v6) 
+  BXaV*Y5T^a(v7)  +  eA-Vp3ka(-v8)  +  pV(v3) 
♦  pAkv^(-v4)  +  yAkv(v7)  +  kviaAapa(-v8)  +  gAv(v5) 
+  9AV0(-V6)  +  gAvX(-v7)   +  gAvia^kaPe(v8)  (5-23) 


(5)     ilXv  =  pApv(pku  y  k2t3)  +  pAPv0(-kZt4) 

+  pAp^(t1+  pku  t4)  +  pApviaa6kaP6(-t2) 
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v.    Act     /   ,2. 


+  pV(pku  t6  +  \ft7)   +  PViaAapa(-kH8) 

+  pViaX\(t5  ^  Pku  t8)  +  PV£Wy\kaP3(-t6) 

+  pV(pku  t1(J  +  k2tn)  +  pAiavaPa(-k2t12) 

+  pXia-ka(tg  +  pku  t12)  +  PA^VY/aP6(-t10) 
+  ia^(Pkut19  +  k2t15)+£AavVY4)Pa(-k2t16) 

+  £AaVV%ka(t13  +  pku  t16)   +  eX^y5P6ka(-t14) 

+  pXkv(tg+pku  t18  +  k2t]9)  +  pXkvp((-t10-k2t20) 

+  p\vHt]7  +  pku  t20  -  tn)  +  PVioB  kapB(t12-t18) 

+  YAkv(-t13+pku  t22  +  k2t23)  +  kviaAapa(t14-k2t24) 
+  kVvk  (t15+t21+Pkut24)+kVa6\\kaP3(-516-t22) 
+  gAv(pku  t26  +  k2t27)   +  gAv0(-k2t28) 
+  gAv/(t25  +  pku  t28)  +  gXviaa3kaP3(-t26) 

(6)     i*TXv  =  pXtf  (p2t2  +  t5  +  tg  +  pku  t3) 
+  pXpv^(t1   -  pku  t4  -  t6  -  t1Q) 
+  p  pvl((p  t4  -  t7  -  t^) 

+  PVl0°\pB(t3  +  t8  +  t12) 
+  pV(p2t6  +  pku  t?  -  t13) 


(5-24) 
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+  PVioX\(t5  -  Pku  t8  +  t14) 

+  pviaA\(p2t8+  t15) 

+  PVeXa3V^kapg(t7  -  t16) 

+  pA  v(p2  t10  +  t13  +  pku  t^) 

+  pAiav\(t9  -  pku  t12  -  tH) 
+  pXiavaka(p2t12  +  t15) 

+  PV^Y%kapB(t11+ 116) 

+  iaVX(p2t14  +  pku  t15) 

^  rtVa(t13  -  pku  t16) 

+  e^Y\ka(p2  t16) 

+  PV(p2t18  +  pku  t19  +  t21) 
+  pxkv^)t1?  -  pku  t20  -  t22) 
+  pxkv/(p2t20  -  t23) 


+pAkviaa6kaPe(t19+t24) 


+  YXkv(p2t99  +  pku  t« J 


Y^    IP    i-22 


+  kViaAapa(t21   -  pku  t24) 
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+  kviaX\(p2t24) 

+  ^yVa^) 

+  gAv(p2t26  +  pku  t27) 
+  gXv0(t25  -  pku  t28) 

+  gAv*(p2t28) 

,     Xv.   oBi,  n  1+     \  (5-25) 

+  9     io     k  PR(t?7) 


V   27 


(7)     Y  TAv  =  pA(p2t2  +  pku  t3  +  t5  +  4tg  +  pku  t18  +  k  tig  +  t26) 

+  pA^(t1   -  pku  t4  -  t5  -   3t1Q  -  P  t2Q) 

+  PH(p2t4  -  t?  -  3tn  +  t17  +  Pku  t2Q  +  t28) 

+  pXiaa6kaP3(t3  +  t8  +  4t12  -  t18) 

+  YX(P2t6  +  Pku  t7  -  3t13  +  Pku  t22  +  k  t23  +  t25) 

+  iaA\(t5  -  pku  t8  +  4tu  -  k2t24  +  t26) 

+  ioA\(p2t8  +  4t15  +  t21  Pku  t24  -  t2?) 

+  eAaB\%kaP3(t7  -   3t16  +  t22  +  t28)  (5-26) 

These  seven  equations  complete  the  work  necessary  to  execute  a 
check  on  the  correctness  of  the  right-hand  side  as  it  was  described 
in  Chapter  IV. 


CHAPTER  VI 
THE  MASS  SHELL  SOLUTION 

6-1  An  Approximate  Solution 

In  Chapter  IV  the  transverse  part  of  the  vertex  equation  was 
decomposed  into  a  set  of  eight  linked  differential  equations  out  of 
the  original  integral  expression  for  the  matrix  function.  The  eight 
differential  equations  established  relations  for  the  eight  unknown 
scalar  functions,  F,  G  ,  G] ,  G2,  H0,  Hi ,  H2  and  I.  These  scalar  func- 
tions exactly  describe  the  transverse  vertex  for  a  given  photon  momentum- 
squared,  k  . 

>  ~  H 

rA(p+k,p)  mSL  F(p2,u)  +  pA[^,K]  — 2  (p2,u) 
p  kp^ 


H  H 

+  [y\*]  if  (p2,u)  +  [y\k]  4  (p2»u)  +  AV'u) 


+  PV  ^  (P2,u)   +  pXK  I  (P2,u)   +  EH5Y.kaPv  ^  (p2,u).      (6-1 
P 

The  circumflex  signifies  the  transverse  component.     The  scalar  functions 

2 
are  shown  as  functions  of  the  electron  momentum-squared,  p  , and  the 

relative  angle  function,  u,  where  u  = %—? — r  •      Tne  scalar  functions 

(IpVI)2 

n 

are  parametrized  by  the  value  of  k  .  The  eight  equations  were  checked 
by  a  process  described  in  Chapter  V.  The  eight  linked  equations  which 
are  third  order  in  derivatives  including  all   nine  possible  mixed 
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derivatives  with  respect  to  p  and  u,  were  complicated  to  write  down, 
difficult  to  check  and  promised  to  be  significantly  more  difficult  to 
solve.  Therefore  it  was  important  to  start  with  a  good  guess  of  the 
correct  solution.  From  the  experience  of  solving  the  electron  equation, 
where  it  was  learned  that  the  mass  shell  solution  dominated  a  wide  region 
around  the  mass  shell,  it  was  hoped  that  the  vertex  equation  would 
similarly  be  a  slowly  changing  function.  If  this  were  so,  then  a  solu- 
tion to  the  eight  differential  equations  which  worked  near  the  mass  shell 
might  be  extended  into  the  asymptotic  region  by  simple  variations  of  the 
eight  scalar  functions. 

In  1981  H.  S.  Green  communicated  an  approximate  solution  to  the 
second  order  tensor  equation, 

v2rA  =  d   FvA  +  g  ^-lpVA^  (6_2) 

L    '  v      v 

The  third  order  tensor  equation,  Eq.  (4-16),  is  obtained  from  this  equa- 
tion by  the  operation  of  i.     The  tensor  functions  Green  found  to  be 
approximate  solutions  to  Eq.  (6-2)  were  used  to  identify  the  approximate 
form  of  the  eight  scalar  functions.  The  approximations  employed  were 
commensurate  with  the  known  behavior  of  the  vertex  and  the  electron 
propagator  near  the  mass  shell. 
In  Eq.  (6-2)  the  tensor 

pvX=  s(iV  35"  [rA(P1p2)s(p2)]s-1(p2)  (6-3) 

was  approximated  by  A  y   ,  where 

A  =  <r(n^rX(n.-n„K(n„).  (6-4) 


aa  =  s(51)rA(p1p2)s(p2) 
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This  amounts  to  neglecting 

sO^Cgjr  rH?fz)  -  rx(p132)s(p2)(p2)(-4-s-1(p2)-Yv)].  (6-5) 

V  v 

This  term  approaches  zero  as  rA  approaches  its  mass  shell   limit  of  y  . 
Near  the  mass  shell   the  appropriate  form  of  the  second  order  vertex 
equation  is  given  by 

V2rX  =.e^YvAV  +  r1AX?].  (6-6) 

This  is  a  far  simpler  equation  than   (6-2). 

This  equation  can  be  decomposed  into  a  set  of  four  linearly  inde- 
pendent matrix  equations  by  the  following  device.     Take  the  product  of 
Eq     (6-6)  with  1,  y  ,  v       and  y       ,  then  take  the  trace  of  each  product. 
To  facilitate  this  the  following  definitions  were  made: 

CA  =  I  tr  [rA]  (6-7a) 


(6-7b) 


<v  - 1  tr  [r\v]  (6-70 

CX      =  i  tr  [r\      ]  (6-7d) 

yvp       4         L      'yvpJ 

DA  =  1  tr  [AA]  (6-7e) 

Dl  -  I  tr  [A\]  (6_7f) 

DX     =  i  tr  [AXY     ]  (6"73) 
yv       4                'yv 

D*       =  1    tr  [AXY       ]  (6-7h) 
yvp       4                  yvp 
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where 
and 


V  =  2[yA'V 


Yyvp  ~  2{yA'Yyv 


(6-8) 


Now  it  can  be  seen  that  the  set  of  four  equations  below  is  equivalent 
to  Eq.    (6-6). 


V2CX  =  -   3eDA 


V2CA  =  2  e  DA  -   2  e  9  V2aV 
u  y  y  v 


)A    -  2e9  V"28PDA    +2e8  V~23PDA 


V  Cyv  e    yv     " "  "y"  vp         '  'v  yp 

V2CA...  -2ea.r23°DL-2e  V^pyo 


yvp 


vpa 


-  2  £  3  V~23aDA     . 
p  yva 


(6-9a) 
(6-9b) 

(6-9c) 
(6-9d) 


The  DA     DA,  DA     and  DA       tensors  are  evaluated  by  using  the 

'  y'  yv     yvp 


y   y 
definition  of  AA,  Eq.  (6-4)  in  Eqs.  (6-7e)  through  (6-7h) 

VX         1     ...    rr-X 


DA  =\  tr  [rA(^  +A2)(01+A1)]/D12 

=  [(p1.p2+A1A2)CA+   (AlP^A2pi;)CA-   P^CAv]/D12 
DA  ={tr  [rA(^2+A2)Yu(^1+A1)]/D12 


(6-10a) 


'v 


(6-10b) 


■  [(A2Ply+AlP2y)CA  +  (A^g-PT-Pg)^  +  (P1yP2+P2yPiK 
♦   (A2P^-A2P^)CAv  +   (P>2PCAvp)]/D12 

Dyv=Itr   [rX(^2+A2V^+Al)]/D12 

=   t-(PlyP2v-%hv)cA^A2Plv^P2v)^(A2hy-^P2y)<+(h-VAlA2)Civ 

-(PlvP2+P2vP^yP+^lyP2+P2yP^Cvp+(A2Pl+AlP2P)CU/D12      (6"10c) 
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C  =  1 tr  [r VVW W}/D12 


A    .     /  _      \^A    .     /„      „  \r^ 


[(Pll>p2v-p2pPlv)Cp  +   <Plvp2p-P2v'>1p)Cp  +   <PlpP2p-p2pPll,)C 


♦   (Vly^^y'V   <A2Plv+AlP2v>Cpp  +   (A2Plp+AlP2p)Cpv 
MA1A2-P1-P2)cJ,vp  ♦  (PluP^P2yPpC  ♦  (PlvP^P2vP?)CXpy„ 

+   <PlpP2+P2pP?>C]/D12-  (6"10d) 

These  definitions  are  somewhat  intimidating  in  appearance  but  the 

full  effect  of  assuming  the  vertex  function  will   be  dominated  by  y    in 

the  region  of  the  mass  shell   has  not  yet  been  fully  explored.     If  r     is 

well   expressed  by  y    for  some  range  of  values  of  p  and  u,  then  this 

means   CA  is  well   expressed  by  6A       and  the  other  tensors  C   ,  C       and 

u  y  MV 

CA   have  neqliqible  effect  relative  to  CA.  Furthermore,  the  electron 

yvp  V 

propagator  has  the  simple  form  lj$-m.     Under  these  assumptions  the 

DA,  DA,  DA  and  DA   tensors  take  on  the  greatly  simplified  appearance  of 

'     y       yv  yvp 

D*  =  2mp_  (6-lla) 

D12 

DA  =  [(m2-Pl.p2)6A  +  (Ply+P2u)PX]/D12  (6"llb) 

Dyv=m"(P1v-P2v)<-    (Ply-P2y^>i2  {6"llc) 

Dyvp  =   t(P1vP2v-P2yPlv)6p  +   (PlvP2p-P2vPlP)6i 

+   (PlpP2y-P2pPly>5>i2  (6"11d) 

2  2   2  2 
where    D,2  =  (P-|_m  )(P2"m  )• 


t  A   , 


6  is  defined  in  Appendix  A. 
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Green's  work  using  these  definitions  of  the  D  type  tensors  to  solve 

the  four  equations,   (6-9a)  through  (6-9d),  for  the  four  tensors  C  ,  Cy, 

CA     and  CA     ,  is  reproduced  in  Appendix  B.     In  the  next  three  sections 

yv  yvp' 

his  expressions  for  c\  CA   ,  CAv  and  CAvp  are  used  to  determine  the  near- 

the-mass-shell   forms  of  the  eight  scalar  functions  F,  G0,  G-, ,  G2,  HQ,   H1 
H2  and  I. 

6-2     The  F  and  I   Functions 

In  Appendix  B,  Eq   (B-32)  gives  the  expression  for  the  C    tensor 


C     =4emp 


v/"1  S  [^in   (i3)  +1]  (6-12) 


where 


x6  =  [p     +  (B+l)|l2  and  u6=m2-l(l-62)k2.  (6-13) 

Furthermore,  from  the  definition  of  c\  Eq.    (6-7a),  the  scalar  function  F 
is  determined. 

CA=)tr  (iX)   =  pXf  (6-14) 

Combining  Eqs.    (6-12)  and   (6-14)  the  scalar  function  is  identified  in 
terms  of  an  integration  over  beta, 

f~\  d„    u„  xn 

F"!«p/      ^^ln(l-^)+l].  (6-15) 

Obtaining  the  I  function  is  slightly  more  involved  but  in  the  end 
it  will  be  seen  that  the  expression  for  I  is  simply  related  to  the 
expression  for  F.  The  defining  equation  for  C^  is  given  in  Appendix  B, 
Eq.  (B-59)  and  it  states, 


VHF2       yvp  7_-|  lxg  "g/ 
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(6-16) 


Using  the  fact  that  when 


4  v       x 
then 


1  Ufi  XR 

-i(l-x?)l"0-u!) 


(6-17) 


V2*=— L-  (6-18) 

VUB 

so  that  Eq.  (B-16)  can  be  re-expressed  as 

V2(pVPo3PCX     )   =  ekW/*    dB.  (6"19) 

It  follows  that 

pVp^apCX       -ekV  /*  dB.  (6"2°) 

From  the  definition  of  CAvp  the  scalar  function  I  is  defined. 

ip^^Svp^^vw 

+  ^Vp-kpPy>5>vPy-Vv]}i-  (6"21) 

From  the  above  it  can  be  shown  that  it  follows  that 

From  Eq.    (6-17)   it  can  be  shown  that 

2 

9X/$d3  =  /  ZpM^ln  (1   -%  +  -L  >dB.  (6-23) 

7  ^  xZ  UB         XB 

3 
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By  substituting  Eqs.    (6-22)  and   (6-23)  into  Eq.    (6-20)   the  function  I 
is  identified, 


I   = 


_  e 


pk    /       hi  In  (1-jJB)  +f]d3.  (6-24) 

M       x„  u3  3 


4 
It  is  now  apparent  that  a  simple  relationship  has  emerged.     That  is, 

I  -  4  F.  (6-25) 

3m 

6-3    The  G   ,  G, ,  and  G0  Functions 
o       I  c 

The  CX  tensor  is  defined  in  the  appendix  by  the  following  statement, 
u 

C*  =  CV  -   dXZ*  (B-48) 

y  y  vi 

where 

C    "f  J     tl-^-^-]ln   d->3 
4^-l  x3         3  3 

-f  U1--V   ^   (1  -  pf )  +  (1-^)   In  (l-p|)>  (B-40) 

Pi  P2 

and  where 

<-H"/  <mH»^[(v,)ln(,-^)  +  ,]dB 

-lV^r  +  i»/l^-«e)ii»(i-^)<i».  (b-«) 

For  greater  ease  in  manipulating  these  quantities,  the  following  defin- 
itions are  made: 


/l2d3=_^ 


1  u3        k2  XB 

0-ir--7r>  1n  (1"tt)  d3  (6"26) 

3     ^x3  UB 


83 


flqd3=    f^    (l-uR)f[(^-D   In   (1-^)  +  l]dB  (6-27) 


^-vi1^1-^ 


3  6 


Then 


CK=  (l--i)   In  (1-pij)  +  (1--^)  In  (1  -  p|). 

Pi  p2 


>K--h<h*z+h^4:  h&d* 


(6-29) 


where 


Then 


kP^X^+l]     '4«-?V"5  +  ^lJde 


(6-30) 


-4  -  2PS  I X=-^-i  =  0;andp-pu-kuT/ 


9p 


v3  3P 


and 


so  that 


C*  =  |/l2dB  -  |  CK 


1  *    >  A    * 

CA  =  C  6A  -  6  C 

v  v  v 


(6-31) 


(6-32; 


^f/ye-f  CK  -jfh6^ 
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+  PApy[-l£/lX3d3 

+  p\[\e  (2-/+  IK/i^B  +     I^e)   -  Je/lJdB].    (6-33) 

From  the  definition  of  c\  Eq.    (6-7b),  the  identification  of  GQ,  G] ,  and 
G?  can  be  made. 

c*=  I  tr  [i\] 

r  G 

=  6AG     +  pAp    -1  +  pXk    -|  .  (6-34) 

y  o       F  Hy  P2       *      y  pk 

From  a  comparison  of  Eqs.    (6-33)   and   (6-34)  the  final  expressions  for  the 
three  G  functions  are  formed. 

Go=f/^B-|CK-f/l3d3  (6-35) 

G]   =  -  4s  /  !>  {6"36) 

G2  =|  (2p2u  +  pk)(/l*d(3  +/ljd0) 

-f/l*pkdB.  (6-37) 

6-4    The  H   ,  H] ,  H2  Functions 

The  defining  equation  for  CA     is  shown  in  the  appendix  to  be 

3     n  yv 


CX     -  IS  [6Ak  8a-k  3A)8    -  (6Xk  3a-k  9A)9   1  flgdB 
yv       16   L   y  a         y'v'va         y         y   J    3 

(6Ak  -6Ak   )  [ I.dB  (B-55) 

v   y  v     v  y  '„/    6 


yv 

,    em   /  -A 


where 


UdB  =    /       H2&)  Ml   -  ^)   In   (1   -  ^)]dB  (6-38) 

b  -/-l         *  UB  B  B 
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/I6d6=/1[^,n0"i)]d6  (6"39) 


1 
fz 


dz 


L2(z)  =  -    J      ln(l-z)  f .  (6-40) 

In  order  to  perform  the  implied  operations  first  notice  that 

3x 
3-  I(XB>   "  "Spf    ^=^a+<6+1'ka)lX  (6-41) 


where 


and 


Ix=|l_  (6-42) 

9xn 


3a9  I  =  26aIX  +  k  ka(g+l)2IXX  +  pak  2(3+1 )ixx 

r\  n  n  v 

+  2pnka(B+l)IXX  +  4pnpaIXX.  (6-43) 

Completing  the  operations  implied  in  Eq.    (B-55)  yields  a  new  expression. 

+  (6jkv-6iky)[2/lXd8  +  2k2/l5XX62d8 

+  (2pku+2k2)/lxx  3d3  +  2pku/lxxd3  +  /igdp] 

+  (5Xpv-6^p  )[4k2/lXX6d3  +  4pku  JlXXd3]>.  (6-44) 

The  relation  between  the  tensor  function  CA     and  the  three  scalar  H 
functions  is  given  by  the  definition 

CA     =  I  tr  [r\     ]•  (6-7c) 

yv       ^  '  yv 
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This  can  be  expanded  to  reveal   the  relation  between  C       and  the  three 

r  yv 

H  functions. 

CA     =  (p  p  k  -pAp  k  )  —J 
yv       x^  *v  y  ^  *y  v'   |2 

A         A         2H1 
v  y     y  v'     k 

2H 

+  (6Ap  -6Ap  )  — £  .  (6-46) 

vy     y*v       p 

By  comparison  of  Eqs.    (6-44)   and   (6-46)   the  three  H  functions  are 
now  expressible  in  the  following  way, 


Ho  =  " 


kp2_/"lxxde  (6-47) 

H,   =  -^  [-  pk2/lXXBdB-  2(p2ku+  ^)/lxxde]  (6-48) 

2 
,   emk  r/Dku   .   k  \    /"  Txx.Ql 

+  "F  [( V +  T)J  !5  d6] 

+  ^jjr/l£XB2dB  +  -y^  (pku  +  ^-)/ljjxBd3.  (6-49) 

6-5     Summary  of  the  Mass  Shell   Solution 

All  of  the  preceding  description  of  the  eight  scalar  functions,  F, 
6  ,  G-,  ,  Go,  H   ,  H-, ,  H2  and  I   has  established  the  transverse  part  of  the 
vertex  function  in  any  region  which  is  typified  by  the  satisfaction  of 
two  constraints.     One  constraint  is  that  the  electron  propagator  be  well 
represented  by 

$  -  m 
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where  m  is  the  experimental  mass  of  the  electron.  This  means  that  the 
function  A(p?)  or  A(p^)  must  be  essentially  constant  and  equal  to  the 
experimental  mass.  The  second  constraint  is  that  r  must  be  dominated 
by  the  contribution  from  yX   so  that  the  transverse  vertex  is  expressible 
in  a  series  expansion, 

rX    X  +  jo.  LX  +  (JL)2  LA  +  (JL)3  L*  +  ...  (6-50) 

where  a  is  the  fine  structure  constant.     If  it  is  possible  to  assume 
that  the  first  term  in  the  expansion  dominates  and  if  the  electron  propa- 
gator is  on  the  mass  shell   then  it  is  expected  that  the  functions  F 
through  I  will  satisfy  the  eight  differential   equations  which  have  been 
written  into  the  Main  Program.     These  eight  function  solutions  have  been 
collected  together  for  ease  of  reference  in  Table  6-1. 

By  using  yX  as  the  first  order  contribution  to  r     a  solution  was 
found  to  the  vertex  equation  up  to  second  order.     In  effect  the  solu- 
tion which  was  determined  represents  an  identification  of  the  L1  term  in 
Eq.    (6-50).     If  this  new  improved  version  of  r     =  y    +-l}  were  put  into 
the  vertex  equation  the  vertex  could  be  determined  up  to  third  order. 
There  is  a  practical   limit  to  how  far  this  process  should  be  carried 
toward  self  consistency.     The  coupling  constant,  -^,  is  a  very  small 
number,  2.32  x  10"3.     Where  it  is  true  that  rA  is  dominated  by  y    the 
third  order  corrections  would  make  little  difference  to  the  solution. 
An  even  more  important  consideration;       the  determination  of  the  vertex 
function  is  only  one  step  in  a  larger  iterative  procedure  which  seeks 
to  re-evaluate  the  electron  and  photon  propagators  to  self  consistency. 
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TABLE  6-1,    THE  MASS  SHELL   FUNCTIONS 
F  =|  emp /^dB 
I   =  |  pkjl}   dB 
G0  =  1  +|/l2dB-|CK-|/l3d3 


G,    =  - 


e  J-  fTx 


P2/ix3de 


o2  .  |  pk  (Mm  +  dc/i^b  +/ix4d  ]  -  f  Pk/  >\ 

H,   ■  -f  [-   P^/lfsdS  -   2(p2ku  +  ^)/lX*dB] 

H2  -  ^  [/lXdB  ♦  j/l6d6]  ♦  ^  Iff  ♦  ^)[/l^6t/l>B] 


3/> 


+  onk      f  jxx  o2. 


32     J  A5 


1  Uo  XR 


UR  t2  XR 

4  =  (1  -  ^r  "  *r}  ln  (1  "  tt} 

*  x3  3  6 

I3=(m2-uB)J-[(^-l)ln(l-^)+l] 


I4  ■  G»S>  ^  in  (1  -  ^) 

?  2 

2                      Pi  2                      P? 

CK  =   (1    -  K)   In   (l   -  4)   +  (1  -  \)    In   (1   -  -§) 

p^                    m  p2                    m 


89 


TABLE  6-1    (Continued) 


.^-uJt-^e-^V"'1 -^'-5] 


x^  k       >■:,:  >i       >, 


Ij|  -  i^l-  ^  in  (1  -  J)  -  ^  ^  ] 

U6 

Xo  UQ  XR 

I5=L2a)  +  (l-^)lnO-^) 


L2(z)   =-    /      in  (l-z)f 

6      xB  u6 

5       ug        x3  UB        x2B  UB        X6 

2 

txx         1  ua  XR  UR         1 

i     .^c    Bln(1       *+j_]_^ 

3  2  B         2 

-~3ln  (1   "Tj   "7 ^  2] 

XB  6        X3  (1   -  u6)         XB 


where 


.  .  rp  ♦  lejii  tf 


2       In       R2W2 
u„  =  m     -  -^ I   -   B  )k  . 


a 
e  -  — 


fine  structure  constant. 
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This  project  involved  an  initial  approximation  for  the  photon  propagator, 
from  that  a  calculation  of  the  electron  propagator,  from  that  a  calcula- 
tion of  the  vertex.  Future  plans  for  the  project  looked  toward  using 
the  information  gained  by  this  work  to  calculate  the  photon  propagator. 
From  this  new  photon  propagator  a  new  electron  propagator  could  be  cal- 
culated. From  these  two  a  new  vertex.  Each  cycle  of  calculation  should 
contribute  a  finer  resolution  of  the  exact  solutions.  There  would  be  no 
point  in  refining  the  vertex  function  much  beyond  the  level  to  which 
the  electron  propagator  is  known.  The  functional  form  of  the  electron 
propagator  is  accurate  to  about  0.1%  of  the  value  of  the  function. 
Where  yX   is  dominant,  corrections  to  order  (— )  in  r  would  be  expected 
to  amount  to  less  than  a  0.1%  difference. 

A  direct  consequence  of  solving  the  vertex  equation  only  up  to  the 

A 


--  L,  term  will  be  that  the  eighth  equation,  the  coefficient  of 

.Tf    1 

Xvy<J>  5     k  will  not  be  soived.     it  happens  that  the  right-hand  side 

'    '(j>  vru 
of  the  eighth  equation  is  second  order  in  -^.     Therefore  to  this  level 

of  solution  the  eighth  equation  should  equal  zero  on  the  right>hand  side. 
For  this  reason  equation  eight  will   not  be  used  as  a  criterion  in  assess- 
ing the  correctness  of  the  solution. 

In  the  next  chapter  a  test  of  the  viability  of  the  mass  shell 
solution  is  made,  and  a  description  of  the  programming  methods  necessary 
to  enact  it    is    given. 


CHAPTER  VII 
VERIFICATION  OF  THE  MASS  SHELL  SOLUTION 

7-1     The  Mass  Shell  Program 

Chapter  VI  established  the  functional   forms  of  the  eight  scalar 
vertex  functions.     There  is  no  single  absolutely  superior  way  to  compile 
these  functions  which  were  summarized  in  Table  6-1.     The  Mass  Shell 
Program—the  Fortran  Program—which  computes  the  values  of  the  functions 
at  given  points,     assumed  many  strategies.     The  decision  of  how  to  com- 
pute the  functions  was  influenced  by  concern  for  ease  of  assembly,  the 
demand  for  machine  time,  and  the  inherent  error  in  each  method.     Three 
basic  categories  of  method  were  tested,  and  we  became  familiar  with  their 
merits.     These  three  categories  are  described  in  section  7-3. 

Once  the  mass  shell   solution  was  computed  by  one  of  these  methods, 
it  had  to  be  interfaced  with  the  Main  Program  by  way  of  a  matrix  of 

■anas? 

numbers.  The  data  matrix  contains  the  value  of  each  of  the  eight  scalar 

functions  and  the  nine  possible  partial  derivatives  of  each  function  at 

2 
one  or  more  points  in  the  infinite  plane  of  the  variables  p  and  u. 

Also  included  as  data  are  the  simpler  electron  propagator  functions  A 
and  B  (which  were  given  in  Eqs.  (3-15)  and  (3-16))  and  their  derivatives. 
The  Main  Program  uses  the  data  matrix  to  evaluate  the  left-  and  right- 
hand  sides  (L.H.S.  and  R.H.S.)  of  each  of  the  eight  equations  at  each 
point  provided.  The  Main  Program  evaluates  the  relative  error  in  each 

equation  at  each  point. 
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„,,.._     .  _   ..   .   (L.H.S.  -  R.H.S.)  of  Equation  i  ,-,   n 
Relative  Error  of  Equation  i  = L.H.S.  of  Equation  i [7"V 

for  i  =  1,2,...  ,8. 
The  relative  error  is  reported  as  a  percentage  error  in  the  output.  An 
optimal  solution  will  have  a  minimal  error  over  the  entire  plane  defined 
by  p2  and  u.  The  question  of  what  constitutes  an  acceptable  minimal 
error  invites  an  analysis  of  what  are  the  possible  sources  of  error  which 
contribute  to  the  Main  Program  and  the  Mass  Shell  Program. 

The  relative  error  in  the  eight  differential  equations  is  the  effect 
of  a  number  of  contributory  causes.  There  is  inherent  error  in  the  data 
matrix  just  because  the  Mass  Shell  Solution  is  an  approximate  solution 
to  the  eight  differential  equations.  There  is  inherent  error  in  the 
electron  propagator  functions  A  and  B  because  they  represent  only  approx- 
imate solutions  to  the  electron  equation.  There  are  truncation  errors 
introduced  by  the  numerical  procedures  used  to  perform  integrations 
and  differentiations.  Finally  there  is  roundoff  error— the  inevitable 
outcome  of  any  calculation  which  is  carried  out  to  a  fixed  finite  number 
of  figures.  All  of  these  sources  of  error  had  to  be  either  maintained 
below  a  preset,  tolerable  level  or,  where  they  could  not  be  controlled, 
they  at  least  had  to  be  understood  well  enough  so  that  we  could  recognize 
when  they  were  contributing  to  a  significant  loss  of  information.  The 
next  section  will  consider  what  were  the  sources  of  error  in  the  Main 
Program  and  how  these  were  controlled.  The  following  section  will  discuss 
the  three  principal  methods  used  to  evaluate  the  vertex  functions,  F, 
G  ,  G,,  G2,  H  ,  H, ,  H2  and  I,  and  how  each  method  affected  the  overall 
level  of  uncertainty. 
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7-2     Contributions  to  Error  in  the  Main  Program 

For  the  purpose  of  analyzing  the  kind  of  error  that  is  being 
generated  within  the  Main  Program  alone,  we  will  assume  for  the  time  being 
that  the  data  matrix  of  the  eight  scalar  functions,  their  derivatives,  the 
two  scalar  electron  functions  and  their  derivatives,  could  be  supplied  to 
the  Main  Program  without  error.     If  this  could  be  done  what  would  be  the 
remaining  sources  of  error  and  how  would  they  propagate  through  the 
Main  Program? 

One  of  the  earliest  versions  of  the  Main  Program  defined  the  partial 
derivatives  of  the  twenty-eight  TAa  components  by  taking  first-order 
differences.     (This  tensor  appears  in  the  R.H.S.   and  it  was  defined  in 
Eqs.    (4-  95)  through  (4-116).)     This  saved  writing  the  analytic  expres- 
sions for  the  partial  derivatives  of  the  twenty-eight  components  of  T 
which,  in  turn,  had  to  be  expressed  in  terms  of  the  partial  derivatives  of 
twenty- eight  components  of  FXv  which,  in  turn,  had  to  be  expressed  in 
terms  of  the  partial  derivatives  of  the  twenty-eight  components  of  Z 
and  WAv  which,  in  turn,  were  at  last  expressed  in  terms  of  the  partial 
derivatives  of  the  eight  vertex  functions  and  two  electron  functions 
provided  by  the  data  matrix.     (See  Figure  5-1  to  be  reminded  of  the 
hierarchy  of  tensors  which  define  the  R.H.S.)    The  numerical  procedure 
for  evaluating  the  partial  derivatives  of  the  twenty-eight  components 
of  TAa  was  quickly  abandoned  because  the  TAa  components  are  very  often 
extremely  large  and  slowly  changing,  and  roundoff  error  eliminated  most 
useful  details.     It  is  a  characteristic  0f  the  R.H.S.   that,  not  only 
are  the  TAa  components  large,  but  that  the  R.H.S.    is  very  much  smaller 
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than  its  components.  The  R.H.S.  is  very  sensitive  to  roundoff  error 
because  it  involves  the  difference  of  many  large  and  almost  equal  terms. 
In  order  to  effectively  calculate  the  R.H.S.  analytic  expressions  of  the 

,.        ,  L  r    o-u        -rtat        rXV        yXV    _„j    ,,,AV 

partial  derivatives  of  the  components  of  the  T     ,  F     ,  L      ana  w 
tensors  had  to  be  supplied  and  the  data  matrix  had  to  provide  the  func- 
tions and  their  derivatives  to  more  than  six  figures. 

Once  the  numerical  means  of  calculating  the  derivatives  of  the 
components  of  TAa  was  discarded,  the  only  remaining  source  of  error  in 
the  Main  Program  is  the  accumulative  effects  of  roundoff  error.     In 
hexadecimal  based  arithmetic  the  roundoff  error  for  a  single  operation 
will  be  proportional  to  the  16"t+1 ,  where  t  is  the  number  of  digits  in 
the  mantissa  when  the  number  is  expressed  as  a  fraction  times  the  base 
raised  the  power  of  the  exponent.     For  a  calculation  of  standard  pre- 
cision, the  number  of  figures  in  the  mantissa  is  only  8.     This  is  not 
enough  to  provide  an  accurate  evaluation  of  the  R.H.S.       It  was  neces- 
sary to  increase  this  precision  to  16  significant  figures.     This  meant 

-15 
the  roundoff  error  for  a  single  operation  was  proportional  to  16       , 

a  yery  small  number.     However  as  the  hundreds  of  thousands  of  single 
operations  of  multiplication  and  addition  take  place  this  error  will 
grow  systematically  through  the  program.     As  mentioned  before,  the 
problem  grows  particularly  severe  on  the  R.H.S.  of  the  vertex  equation 
when  the  differences  of  large  and  nearly  equal  quantities  are  taken. 
It  would  be  a  huge  task  to  draw  a  process  graph  to  follow  the  propaga- 
tion of  the  approximate  error  throughout  the  program.     Even  if  this  was 
done  the  projected  error  would  be  an  upperbound  with  a  large  possible 
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deviation  since  the  error  would  be  assumed  maximal  at  each  individual 
step.  As  an  alternative  measure  to  estimate  the  intrinsic  roundoff  error, 
both  the  Main  Program  and  the  Mass  Shell  Program  were  converted  to  qua- 
druple precision.  The  stability  of  the  program  results  under  the  change 
from  double  precision  to  quadruple  precision  was  taken  to  indicate  that 
the  data  matrix  was  being  supplied  with  numbers  of  sufficient  accuracy 
that  roundoff  error  was  not  a  matter  of  principal  concern.  In  this  way 
the  Main  Program  was  established  to  be  working  satisfactorily.  The 
really  significant  problem  of  error  management  lay  in  the  design  of  the 
Mass  Shell  Program. 

7-3  The  Mass  Shell  Program 

The  Mass  Shell  Program  takes  the  functional  form  of  the  F,  GQ,  G1 , 
G?,  H  ,  H,  ,  H?  and  I  functions  and  computes  the  value  of  the  functions 
and  all  the  derivatives  at  selected  points.  The  vertex  functions  are 
parametrized  by  k2  and  are  dependent  on  the  variables  p  and  u,  where 

V      "S  (7.2) 

u  =  *  '  (P¥u¥  ' 

2 
Due  to  the  indefinite  metric  the  domain  of  p     is  from  -  °°  to  +  °°. 


P2  -  P/ 


g    p  p 


vDy  (7-3) 


Therefore  both  (p2)*  and  (k2)*  can  take  on  imaginary  values.  This  leaves 
a  dilemma  in  the  interpretation  of  the  meanings  of  the  symbols  p  and  k 
used  in  the  definition  of  u  and  in  the  definitions  of  the  functions  in 
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Table  6-1.     Initially  this  difficulty  was  circumvented,  rather  than 

2 
resolved,  by  merely  agreeing  to  consider  only  positive  values  of  p    and 

k2.     In  the  following  chapter  designs  are  included  to  allow  for  the  nega- 
tive momenta  and  the  full   range  of  u. 

Before  agreeing  to  consider  only  the  positive  momentum  squared,  it 
was  possible  to  tackle  the  real   business  of  turning  Table  6-1  into  a 

reliable  program  which  could  provide  a  matrix  of  numbers  representing 

2         2 
the  eight  functions  at  a  given  selection  of  points  in  (p   ,y,k  )  space. 

Also  needed  are  the  nine  possible  mixed  derivatives  of  each  vertex  func- 
tion.    Let  r(p2,y)  represent  any  one  of  the  eight  vertex  functions. 
Then 

*r(p  ,u)  =  y    — 
dp 


■Avft-SO* 


W  ♦JKjT-M?  (7"4) 


where 


P.^  and     r*.& 

9p 

In  order  to  obtain  the  left-hand  side  of  the  vertex  equation,  i  r   ,  it 

i        ii       iii       *      **      ***      *'       **■ 
is  necessary  to  evaluate  r,r     ,r       ,r,r     ,r       ,r     ,r         and 

*■  ■ 
r         for  each  vertex  function. 

The  object  of  the  Mass  Shell   Program  was  to  evaluate  by  some  method 

the  many  types  of  integrals  over  beta  which  define  the  vertex  function, 

and  then  by  some  other  method  obtain  all   of  the  above  mentioned  partial 
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derivatives.  At  the  same  time  the  Mass  Shell  Program  was  constrained  to 
evaluate  these  functions  and  derivatives  in  a  way  which  was  conservative 
of  machine  time  since  many  evaluations  at  different  point  were  going 
to  be  made.  It  was  also  constrained  to  be  very  precise  in  its  evaluations 
since  it  had  been  found  that  the  R.H.S.  of  the  vertex  equation  involved 
the  subtraction  of  nearly  equal  quantities.  This  required  that  the  data 
matrix  be  reliable  to  more  than  six  significant  figures.  The  evaluation 
of  the  beta  integrals  was  a  challenge  to  both  of  these  constraints  since 
the  integrands  become  singular  at  those  values  of  the  integration  variable 
where 

^  =  0    or    ^  =  1.  (7-5) 

Any  integration  method  used  has  to  be  preceded  by  an  identification  of 
any  such  singular  points  so  that  a  treatment  could  be  prescribed. 

A  number  of  different  approaches  were  made  at  forming  the  Mass  Shell 
Program.  They  are  divided  into  three  main  types.  The  first  type  chosen 
was  to  evaluate  the  functions  with  extreme  precision  and  then  take  first, 
second  and  third  order  differences  to  form  the  derivatives.  The  second 
type  wrote  out  the  derivatives  in  terms  of  the  analytic  expressions 
derived  from  Table  6-1.  Then  the  functions  and  the  derivatives  were  all 
evaluated  through  integrations  over  a  great  number  of  beta  integrals. 
The  third  type  of  approach  was  to  perform  analytic  evaluations  of  the  beta 
integrals  to  define  the  functions,  then  apply  the  method  of  taking  differ- 
ences to  obtain  the  derivatives.  Each  method  has  its  own  special  advan- 
tages and  disadvantages  which  shall  be  further  discussed.  Familiarity 
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with  the  peculiarities  of  each  approach  led  to  a  prescription  for  the 
most  efficient  acquisition  of  the  data  matrix. 

Method  1 

One  way  to  determine  all  the  scalar  functions  and  their  derivatives 
was  to  determine  the  functions  to  a  minimum  of  12  significant  figures 
at  a  number  of  points  and  use  these  values  to  evaluate  the  derivatives 
by  the  method  of  taking  differences.  The  main  advantage  of  this  method 
is  that  it  performs  the  minimim  number  of  different  integrations  over 

beta. 

Two  principal   schemes  were  used  to  perform  the  integrations  over 
beta,  Gaussian  quadrature  and  a  modified  trapezoidal   rule.     For  the 
Gaussian  quadrature  subroutine,  ninety-six  points  were  used.     This  meant 
that  if  the  integrand  under  the  beta  integral   could  be  well   approximated 
by  a  polynomial  of  the  ninety  sixth  degree  or  less,  there  would  be  no 
truncation  error  involved  in  the  use  of  the  subroutine.     Gaussian  quad- 
rature is  typically  fast  and  efficient.     The  subroutine  used  generally 
gave  excellent  results  in  a  small   fraction  of  time  consumed  by  the  trape- 
zoidal  rule  subroutine.     However,  where  the  range  of  integration  included 
a  point  where  the  integrand  was  singular,  Gaussian  quadrature  is  not 
expected  to  be  reliable. 

A  monitor  was  needed  to  signal   the  occurrence  of  places  where  the 
integration  needed  to  be  performed  in  a  different  manner.     This  was  done 
by  writing  out  the  analytic  expressions  for  the  first  partial  derivatives 
of  each  function  in  terms  of  the  beta  integrals  and  then  evaluating  the 
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first  partial  derivations  by  both  the  integrations  over  beta  and  by  the 
first  order  differences  of  the  functions.     Where  the  two  evaluations  of 
the  first  order  partial  derivatives  did  not  agree  to  at  least  eight  sig- 
nificant figures,  a  warning  message  was  automatically  issued.       This 
monitoring  device  was  very  useful   as  an  alert.     However  it  didn't  solve 
the  problem  of  the  singular  points.     It  only  brought  them  to  one's 
attention. 

To  deal  with  these  special   points  in  the  integration  over  beta,  an 
additional   subroutine  was  added.     This  subroutine  provided  an  alternative 
route  to  evaluate  the  beta  integrals.     It  was  a  more  time  consuming  path 
and  therefore  its  use  was  flagged  by  the  positive  identification  of  a 
singular  point.     The  problem  integrals  were  then  reexpressed  so  that  the 
integrands  no  longer  diverge.     As  an  illustration,  consider  the  following 
integral  which  is  used  in  the  definition  of  the  F  function, 

r1  u„ 
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In  the  case  that  there  is  a  6Q  such  that  for  1  <  3Q  <  1  there  exists 
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then  ln  (1 -&-)   will  diverge.  The  integral  can  be  reexpressed. 
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In  this  way,  that  part  of  the  integral  which  the  numerical  technique 
evaluates  with  the  greatest  difficulty  has  been  performed  analytically. 

Another  way  to  handle  the  special  points  was  to  substitute  a  kind  of 
trapezoidal  rule  for  the  Gaussian  quadrature.  The  trapezoidal  rule  is  in 
general  less  sensitive  to  the  occurrence  of  isolated  special  points.  An 
efficient  modification  of  the  trapezoidal  rule,  called  Romberg  integration, 
was  applied.  The  Romberg  method  is  an  example  of  a  deferred  approach  to  the 
limit.  It  applies  the  trapezoidal  rule  repeatedly.  Each  iteration  alters 
the  step  size  in  a  specific  way  such  that  the  largest  contribution  to  the 
truncation  error  at  each  step  is  cancelled  by  the  following  iteration. 
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Although  the  Romberg  subroutine  was  slow  and  expensive  compared  to  the 
Gaussian  subroutine,  it  did  provide  a  more  certain  evaluation  of  the 
integrals  because  the  level  of  precision  desired  was  preset  by  the  toler- 
ance.    This  routine  was  committed  to  grind  away,  subdividing  the  area 
under  the  integrand  into  small   and  smaller  trapezoids,  until   the  required 
self  consistency  was  attained. 

The  calculation  of  the  derivatives  of  the  functions  by  the  numerical 
method  loses  much  of  the  precision  which  is  attained  by  the  Gaussian  or 
Romberg  integration  subroutines.     The  nine  partial   derivatives  of  each  of 
the  eight  vertex  functions  were  calculated  from  the  evaluation  of  the 
functions  at  seventeen  points.    The  truncation  error  in  the  first  order 
derivatives,  r1 ,   (let  r  represent  any  one  of  the  eight  functions  and  let 

the  I   indicate  the  first  differentiation  with  respect  to  either  of  the 

h4     V 
variables)  was  proportional   to  4k  rv.     The  truncation  error  in  the  second 

4 
order  derivatives,  r11,  was  proportional   to  -^  T       and  the  error  in  the 

third  order  derivative,  r111,  was  proportional   to  -j-  r  .     The  third  order 
derivative  suffered  from  the  highest  degree  of  truncation  error.     This 
truncation  error  could  be  reduced  by  decreasing  the  step  size,  h. 
However,  it  was  found  that  roundoff  error  began  to  dominate  when  the 
step  size  was  smaller  than  0.01%  of  the  variable  magnitude.     This  estab- 
lished a  practical   limitonthe  accuracy  of  the  differentiation  process 
which  reflected  the  balancing  of  the  two  opposing  trends  of  truncation 
error  versus  roundoff  error. 
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Method  2 

Method  2  sought  to  eliminate  the  need  for  evaluating  the  nine  partial 
derivatives  of  the  eight  functions  by  the  method  of  taking  differences. 
To  do  this  it  was  necessary  to  use  the  definitions  of  the  functions  in 
Table  6-1  to  obtain  analytic  expressions  for  all  the  derivatives  in  terms 
of  the  integrals  over  beta.  This  eliminates  the  serious  limitations 
Method  1  had  encountered  on  the  precision  of  the  third  order  derivatives, 
but  it  does  so  at  the  cost  of  introducing  a  host  of  new  beta  integrals 
to  be  evaluated.  On  the  other  hand  the  beta  integrals  do  not  have  to  be 
evaluated  to  the  same  extreme  degree  of  precision  that  they  had  to  be 
in  Method  1  because  the  integrals  were  not  later  to  be  used  to  evaluate 
first,  second  and  third  order  differences.  The  analytic  expressions  for 
all  the  derivatives  are  not  provided  here  because  they  are  lengthy. 
The  expressions  for  the  derivatives  can  be  found,  as  they  appear  in  the 
Mass  Shell  Program,  in  Appendix  C. 

Method  2  did  not  include  special  treatment  for  the  many  new  beta 

XB 
integrals  for  the  cases  where  there  exists  a  Bo  such  that  — -  =   1  or 

O  Uo 

Xr,  P0 

— —  =  0.  Therefore  a  test  is  made  for  each  point  to  be  calculated  to 
determine  if  3  lies  in  the  range  from  -1  to  1.  In  the  event  such  a  3q 
isfound,  the  rejection  of  the  point  is  automatic  when  Gaussian  quadrature 
is  used.  In  those  cases  it  is  easier  to  return  to  Method  1  or  switch  to 
the  slower  Romberg  integration  than  to  try  to  reexpress  all  the  new  beta 
integrals  so  that  S  could  cross  the  singularity. 
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Method  3 

There  is  a  third  approach  possible  to  the  problem  of  accurately 

evaluating  the  functions  in  Table  6-1.     When  it  is  very  important  to  know 

the  functions  with  great  accuracy,  it  is  better  to  perform  the  integrations 

over  beta  analytically.       The  analytic  expressions  for  the  beta  integrals 

2  2 

are  different  for  -^  >  4  and  -^-  <  4.     Therefore  it  is  necessary  to  work 

m  m 

out  the  analytic  expressions  twice.     This  approach  was  first  taken  by 

Ruben  Mendez  Placito.26     He  worked  out  the  analytic  expressions  for  the 

.2 
eight  scalar  functions  for  K  <  4-     Then  he  aPPlied  a  numerical   procedure 

m 
to  evaluate  the  derivatives.     By  this  method  the  value  of  the  eight  func- 
tions is  precisely  given,  but  the  derivatives  are  subject  to  the  same 
squaring  off  of  truncation  versus  roundoff  error  which  was  mentioned  in 
the  discussion  of  Method  1.     The  leading  terms  on  the  L.H.S.   of  the  vertex 
equations  are  the  terms  with  the  highest  order  derivatives.     Therefore 
the  error  generated  in  creating  the  third  order  derivatives  goes  directly 
into  the  relative  error  of  each  equation.     It  is  clear  that  the  ultimate 
improvement  upon  all   three  methods  would  be  to  eliminate  all  the  numer- 
ical processes  of  integration  and  differentiation.     The  improvement  that 
Method  3  represents  for  the  functions  should  be  made  also  for  all   the 

derivatives.     It  is  also  clear  that  such  a  maneuver,  done  in  duplicate 

2  2 

for  J<    >  4  anc|  J<    <  4,  would  represent  a  considerable  investment  in 

m  m 

effort. 
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7-4     Summary  of  Results  of  Mass  Shell   Program 

The  three  methods  just  described  were  used  to  test  the  Mass  Shell 
Solution.  The  expectation  was  that  the  Mass  Shell  Solution  would  pro- 
vide a  reasonable  solution  to  the  vertex  equation  in  the  vicinity  of  the 

mass  shell.     Using  units  which  set  the  experimental  mass  of  the  electron 

2 
to  unity,  the  mass  shell   is  given  by  the  sphere  described  by  p     =1, 

k2  =  0  and  -°°  <  u  <  °°.     This  region  was  sampled.     Because  each  of  the 
three  methods  is  associatd  with  a  different  kind  of  approximation,  the 
differences  in  the  results  they  yielded  provided  information  about  the 
importance  of  these  approximations. 

Around  the  mass  shell,  Method  1   provided  a  1%  error  in  the  seven 
of  the  eight  differential   equations  considered.     The  1%  error  in  the 
differential   equations  represents  the  accumulation  of  all   the  errors 
throughout  both  programs  and  therefore  the  systematic  error  in  the  func- 
tions can  be  taken  to  be  less  than  IX.     In  addition  it  was  found  that 
Method  1   could  not  approach  the  mass  shell  too  closely.     The  error  grows 
dramatically  if  p2  is  less  than  1.01  and  k2  is  less  than  10"   .     At  the 
point  p2  equals  1.0001,   k2  equals  1   x  10"12,  for  all   values  of  u,  there 
is  no  resemblance  of  a  solution  remaining.     It  was  not  immediately  clear 
whether  this  failure  was  due  to  the  Mass  Shell   Solution  itself  or  due  to 
a  loss  of  precision  where  it  was  most  needed. 

The  explanation  for  the  problem  was  evident  when  Method  2  was 

2 
applied.     At  the  same  point  that  Method  1   totally  broke  down,  p     equals 

1.0001   and  k2  equals   1   x  10"12,  Method  2  yielded  less  than  2%  error  for 

the  first  four  equations  and  less  than  5%  error  for  the  last  three 
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2  -10 

equations.  The  error  climbs  only  slowly  as  p  approaches  1.0  +  1  x  10 

and  k  approaches  1  x  10   .  As  the  mass  shell  is  approached  the  third 

order  derivatives  dominate  the  L.H.S.  of  the  differential  equation. 

Method  2  provides  a  better  resolution  of  the  third  order  derivatives  and 

demonstrates  that  this  is  exactly  what  is  needed  to  go  arbitrarily 

7  2 

close  to  p  =  1  and  k  =  0.  By  this  same  reasoning  Method  3  was  not 

expected  and  was  not  found  to  perform  well  in  the  very  immediate  vicin- 
ity of  the  mass  shell.  However  at  the  moderate  range  out  from  the  mass 
shell  it  performed  reliably. 

It  was  interesting  to  discover  that  near  the  mass  shell  using 
Method  2  in  conjunction  with  the  Romberg  subroutine,  with  a  very  high 
level  of  stability  enforced,  yielded  the  same  results  as  the  Gaussian 
subroutine.  Apparently  the  integrals  over  beta  were  not  contributing 
significant  error  in  this  region.  The  really  important  factor  is  control 
over  the  level  of  precision  in  the  higher  order  derivatives. 

The  most  surprising  result  that  came  out  of  testing  the  Mass  Shell 
Solution  was  the  way  the  solution  still  continued  to  work  at  points  of 
intermediate  and  even  large  distances  from  the  mass  shell.  Holding 
k2  =  10"3  and  increasing  p2  from  1.0  to  1.0  x  10   still  found  all  three 
methods  performing  well.  Method  3  generally  had  errors  less  than  1% 
while  the  other  two  methods  hovered  around  1%.  Method  2  and  Method  3 
did  not  perform  well  for  those  values  of  u  that  caused  the  beta  to  be 
singular.  However,  Method  1  did  perform  properly  for  those  values  of  u. 

It  was  not  possible  to  test  the  Mass  Shell  Solution  for  values  of 

7  12 

p  greater  than  1.0  x  10   because  the  size  of  numbers  calculated 

exceeded  the  capacity  of  the  machine  and  overflows  resulted. 


106 


?  2 

When  p  was  held  constant  and  k  was  allowed  to  grow,  it  was  found 

that  all  three  methods  concurred  that  there  is  a  natural  upper  bound  on 

the  allowable  range  of  k2.  The  Mass  Shell  Solution  consistently  fails 

o  2  2 

when  k  is  greater  than  ten  times  p  ,  for  any  value  of  p  . 

In  conclusion,  these  trials  had  shown  that  the  Mass  Shell  Solution 

is  a  solution  to  the  vertex  equation  near  the  mass  shell  as  it  chould  be. 

Perhaps  even  more  importantly  it  was  shown  to  have  an  unexpectedly  large 

range  of  applicability  covering  the  area, 

1  <  p2  <  1012 

0  <  k2  <  10  p2 

-  °°  <  u  <  °°. 

As  a  result  of  the  testing  we  have  a  prescription  for  the  method  to  be 
used  to  evaluate  the  Mass  Shell  Solution, 

For  the  Mass  Shell  Region  -  Method  2,  Gaussian  Quadrature 
For  the  Mass  Shell  Region  with  3  integral  singularities 

-  Method  2,  Romberg  Integration 
For  the  Region  beyond    -  Method  1 ,  Gaussian  Quadrature 

the  Mass  Shell. 

We  would  also  predict  that  if  Method  3  were  extended  so  that,  not  only 
the  functions  were  expressed  analytically,  but  also  all  the  derivatives, 
then  it  would  out  perform  both  of  the  earlier  Methods  in  all  regions. 


The  Mass  Shell  Solution  has  presented  some  further  questions. 

2 
How  would  the  Mass  Shell  solution  perform  for  values  of  p  greater 

than  1  x  10  ?  Is  there  a  way  to  test  it  beyond  this  upper  bound? 
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Why  does  the  solution  begin  to  fail  when  k  is  greater  than  10  p  ? 

The  next  chapter  addresses  itself  to  the  exploration  of  these  difficulties. 


CHAPTER  VIII 
EXTENDING  THE  MASS  SHELL  SOLUTION 

8-1     A  Scaling  Symmetry 

The  work  described  in  Chapter  VII  found  the  Mass  Shell  Solution 
(M.S.S.)  to  be  a  viable  solution  to  the  vertex  equations  in  the  mass 

shell   region  and  also  extending  over  an  unexpectedly  large  range  in  the 

2 
magnitude  of  p  .     There  remained  two  principal  areas  of  concern.     The 

first  was,  would  the  M.S.S.   continue  to  be  a  solution  where  the  magni- 

9  12 

tude  of  p    was  greater  than  10     ,  or  was  the  gradual   incline  in  percent 

2 
error  (up  to  3%),  as  p     approaches  the  machine  imposed  upper  bound,  an 

indication  of  the  failure  of  the  analytic  approximation.     The  second 

concern  was  what  was  the  cause  of  the  upper  bound  on  the  magnitude  of 

2 
k    and  would  an  understanding  of  the  cause  lead  to  a  prescription  for 

its  resolution? 

In  the  course  of  addressing  these  matters,  the  M.S.S.  was  modified 
to  make  the  examination  of  the  vertex  equations  more  flexible.     The 
vertex  function  is  a  dimensionless  function  of  the  electron  momentum  p, 
the  photon  momentum  R  and  the  experimental  mass  m.     For  convenience,  the 
mass  is  normally  taken  to  be  unity.      It  is  possible  to  let  the  four- 
vector  k"  define  an  axis  of  the  coordinate  system.     The  significant  quan- 
tities then  are  the  magnitude  of  k  relative  to  the  mass,  the  magnitude  of 
p  relative  to  k  and  the  angle  between p  and k,    denoted  u.     The  indefinite 
metric  introduces  the  inconvenient  feature  that  four-momenta  squared  need  not 
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be  positive  definite.  In  all  of  the  previously  described  work  the  problem 

2     2 
was  circumvented  by  considering  only  those  values  of  p  and  k  which  were 

greater  than  zero.  No  difficulty  was  then  encountered  in  evaluating 

u  nor  in  evaluating  the  functions  described  in  Table  6-1.  However,  a  real 

2     2 
advantage  of  allowing  p  and  k  to  take  on  negative  values  simultaneously 

is  that  no  singularities  are  encountered  in  the  evaluation  of  the  beta 
integrals.  With  no  singularities  present,  the  Gaussian  method  of  integra- 
tion could  be  used   with  impunity.  Any  failure  of  the  M.S.S.  to  fit  the 
vertex  equations  could  not  be  attributed  to  an  awkward  estimation  of  the 
beta  integrals  and  a  more  definitive  test  of  the  M.S.S.  could  be  made. 
The  strategy  employed  to  extend  the  M.S.S.  into  the  range  where  the 

square  of  both  momenta  were  negative  was  to  regroup  the  products  of  all 

?  -  2  - 

the  momenta  so  that,  nowhere,  do  the  terms  p  =  (p  ) 2  and  k  =  (k  ) 2  appear. 

Two  new  terms  were  introduced  called  pk  and  pok  to  replace  p  times  k  and 

p  divided  by  k. 

0     0     X 

p  x  k  •+  pk  where  pk  =  ±  (p  k  )2  (8-1) 

7      2  - 
p/k   ■+  pok  where  pok  =   (p  /k  )2  (8-2) 

The  ±  sign  in  the  definition  of  the  variable  pk  is  taken  to  be  positive 
when  the  electron  and  photon  momenta  squared  are  both  positive.  Conversely, 
the  ±  sign  is  taken  to  be  negative  when  both  squared  momenta  are  negative. 

This  reflects  the  fact  that  the  product  or  quotient  of  pk  and  pok  should 

2     2 
recover  the  sign  of  the  negative  momenta  when  both  p  and  k  are  negative. 

Odd  combinations  of  momenta  occur  in  the  F,  H  ,  H-j  and  H2  functions 

as  they  appear  in  Table  6-1.  This  is  easily  repaired  by  multiplying  the 
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functions  by  an  additional    (k   )2.     The  addition  of  (k  )2  is  compensated 

for  by  dividing  the  F,  H   ,  H-,   and  f-L  functions  by  the  same  factor  where 

they  appear  in  the  vertex  equations.     Thus  the  notation  used  to  express 

the  transverse  component  of  the  vertex  function  is  changed  in  a  small 

way  to  now  be ' 

rx(p,p+k)  =£|--F(p2,u)  +y\(p2,u)  +£/    G^p^u) 


A 

X,  ,  H 


+  -^G2(p2,u)   +  pA[0,k]  -fc   (p2,u) 
H  H 

+  [/.*]  pj;  (P2.")  +  hA,k]-|  (p2,u) 

'*™VV,/ai(p!,«).  (8-3) 

The  expressions  of  the  functions  has  also  taken  on  a  slightly  different 
form.  Table  6-1  is  now  to  be  replaced  by  Table  8-1  which  includes  this 
and  other  extensions,  yet  to  be  described. 

No  attempt  has   been  made  to  generalize  the  Main  and  Mass  Shell 

Programs  to  handle  the  alternate  possibility  of  momenta  of  opposite  sign, 

2  2 

that  is,  p     =  -k  .      It  is  not  expected  that  this  should  incur  any  special 

obstacles  other  than  the  rather  considerable  initial   inconvenience  of 

tracking  through  the  programs  a  large  number  of  sign  changes. 


'The  bar  over  the  eight  vertex   functions   is   to  remind  the   reader 
that  the  expressions    in  Table  8-1    should  be  used,   not  the  earlier  version 
of  the  expressions  found  in  Table  6-1. 
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The  next  extension  which  was  made  was  one  that  allows  the  study  of 
points  taken  for  p2/m2  >  1012.   Because  the  vertex  function  is  dimension- 
less,  it  is  invariant  under  scale  transformations  which  treat  equally  the 
electron  momentum,  the  photon  momentum  and  the  mass.  Thus  if  a  solution 
could  be  obtained  for  the  coordinates 

(p2,  k2,  m2,  u)  =  (101,  IxlO"3,  100,  u),  (8-4) 

this  would  be  same  as  the  solution  at  the  point, 

(p2,   k2,  m2,   u)   =   (1.01,   IxlO-5,   1.0,   u).  (8-5) 

9  9  9 

It  is  the  relative  magnitudes  of  p   ,   k     and  m     which  identify  a  point  for 
some  particular  value  of  u.     The  angle  variable,  u,  is   independent  of  the 
scale  changes.     Although  it  is  not  possible  to  evaluate  the  vertex  at 
p2  >  1012  because  of  the  high  powers  of  p     accumulated  in  the  course  of 
the  Main  Program,  it  is  possible  to  let  m     become  arbitrarily  small   rela- 
tive to  p2  and  k2.     The  mass  appears  only  up  to  squared  powers  and  doesn't 
threaten  the  capacity  of  the  machine.     The  solution  at  the  point 

(p2,   k2,  m2,   u)    =   (1.0,   IxlO"10,   IxlO'80,   u)  (8-6) 

is  equivalent  to  the  point 

(p2,k2,m2,u)^   (IxlO80,   IxlO70,   1.0,   u).  (8-7) 

By  this  strategy  it  is  possible  to  test  the  M.S.S.    at  points  which  are 

?     2  80 

equivalent  to  those  which  have  p   /m     attain  the   limiting  value  of  10 

or   less. 
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This  scaling  symmetry  was  used  to  test  the  validity  of  the  M.S.S.   in 
the  asymptotic  p     region.    It  was  found  that  the  M.S.S.   as  represented  by 

the  functions  in  Table  6-1   loses   its  resemblance  to  a  solutipn  rapidly  as 

2     2  12 

the  magnitude  of  p  /m     grows  larger  than  10     . 

Before  going     on  to  describe  the  work  that  was  done  to  correct  the 

2  ... 

difficulty  at  asymptoticly  large  p   ,  it  may  be  worth  mentioning  in  passing 

that  the  scaling  symmetry  provided  a  handy  diagnostic  tool   for  detecting 
bugs.     After  any  major  alteration  of  either  the  Main  Program  or  the  M.S.S. 
Program  it  was  found  useful   to  test  them  out  at  a  set  of  equivalent  points. 
Even  small   and  hard  to  find  errors  were  unequally  treated  at  such  equiva- 
lent points  and  their  occurrence  could  be  readily  detected.     This  tool 
was  routinely  applied  after  any  major  changes  in  the  programs. 

2 
8-2     The  Large  p     Region 

2 
The  deterioration  of  the  accuracy  of  the  M.S.S.    for  large  p     begs 

for  a  re-examination  of  the  premises  upon  which  its  derivation  was  based. 

In  arriving  at  the  solutions  described  in  Table  6-1   it  was  assumed  that 

Y    was  the  dominant  term  in  r   .      It  was  assumed  that  all   other  terms  were 

smaller  by  at  least  one  order  of  magnitude  of  the  fine  structure  constant. 

7  2  2 

For  large  values  of  p     (relative  to  k    and  u  ) ,  this  approximation  is  not 

in  contradiction  with  the  value  of  the  vertex  function  obtained  from  the 

M.S.S.        In  fact,  as  p     grows  very  large,  all   the  functions  except  GQ 

decrease  at  a  rate  of  1/p  or  faster.     The  function,  GQ,  approaches  a 

constant  equal   to  unity.     Therefore  the  approximation  used  to  derive  the 

2 
M.S.S.   not  only  holds  but  is  actually  better  in  the  asymptotic  p     region 
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than  it  is  in  the  mass  shell  region.  By  this  criterion  alone  the  M.S.S. 

2 
should  be  expected  to  work  in  the  asymptotic  p  region. 

However,  in  deriving  the  M.S.S.  another  approximation  was  made. 

It  was  assumed 

A(p^)  ■  A(p|)  -m,  (8-8) 

where  m  is  the  experimental  mass.     This  approximation  is  completely 

2 
wrong  in  the  large  p     region  since  as 

|p2|+~,       A(p^)  +  0       and  A(p2)  -  0.  (8-9) 

In  deriving  the  M.S.S.  as  it  appears  in  Table  6-1,  the  approxima- 
tion in  Eq.  (8-8)  was  used  to  provide  a  simplified  expression  of  the 

DA,  DA,  DA  and  DA  tensors  (first  defined  in  Eq.  (6-7)).  If  the  approx- 

y'   yv      yvp 

imation  had  not  been  employed  the  tensors,  D  ,  D  ,  D   and  D   ,  would  have 
taken  the  form, 

DA  =  [A]PA  +  A2pA]/D12 

<  =  C^VPl    h)6l  +   (hy  +  P2y)P^/D12 
DyWA2Plv-   V2X  -    (Vly-AlP2y^>!2 

C  =  [(plyp2v       "     P2yPlX  +   (PlvP2p-P2vPlp)6y 

+   (p.    p9  -p,  p,    j6Aj/D,9  (B-ll) 

vHp  2y  K2pHu     v        12 

where  D]2   -   (p^-A^) (p2-A2)   and  A]    =  A(p]),  A2   =  A(p2)   instead  of 
that  given  by   Eq.    (6-11 ). 
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These  new  expressions  for  the  DX,  DA,  DAv  and  DA   tensors  lead  to 
a  new  and  necessarily  more  complicated  set  of  differential  equations  which 
have  to  be  solved  to  define  the  CA,  CA,  CX  and  CA   tensors,  which  in  turn, 


would  lead  to  an  identification  of  the  F.  G  ,  G-j ,  G2,  HQ,  H^ ,  H2  and  I 
functions.  As  an  example  of  how  this  less  restricted  form  of  the  D  tensor 
affects  the  problem,  consider  the  new  equation  for  the  C  tensor  which 
leads  to  the  identification  of  the  F  function, 


V2CX  =  -  3e 


A]PA   A2p£- 


D12    D12  j 


(8-10.; 


It  is  impossible  to  solve  this  equation  by  the  same  methods  employed  in 
Chapter  VI  and  Appendix  B.  The  transformation  functions  given  in 
Eqs.  (B-21)  through  (B-30)  no  longer  apply. 

An  alternative  to  resolving  these  more  complicated  expressions  for 

the  eight  vertex  functions  is  suggested  by  the  observation  that  the  mass 

7  2        2 

function,  A(p  ),  is  slowly  changing.  The  derivatives  of  A(p-j )  and  A(p2) 

?  7 

are  \iery  small   and  A(p,)  and  A(p2)  will   behave  much  like  constants  over 

a  finite  range  of  p  .      Furthermore  A(p-j )   is  approximately  equal   to  A(p2) 

7      7 
where  the  ratio,  p  /k   ,  is   large.     A  useful   adulteration  of  the  M.S.S. 

would  be  to  replace  m2  by  A^2  and  m  by  (A1+A2)/2,  wherever  they  appear 

in  the  definition  of  the  functions.     This  crude  recasting  would  not  be 

2         2 
expected  to  be  favorable  in  any  region  where  k    >>  p     (because 

A(p?)   i  A(p2)).     However,  it  has  already  been  found  that  the  M.S.S.    is 

2  2 

not  valid  where  k     >  p   ,  so  no  loss  will   be  suffered  on  that  account. 

Furthermore,   since  as   the  mass   shell    is   approached,   the  mass   function 


115 


approaches  the  value  of  the  mass,  the  original  M.S.S.  will  be  recovered 
and  no  harm  will  be  done  to  the  solution  in  the  region  of  the  mass  shell. 

Some  tinkering  was  done  with  this  fomula.  The  best  results  were 
obtained  when  the  replacement  of  m  by  AjA2  and  m  by  (A-|+A2)/2  was  made 

almost  everywhere.  The  exception  lay  in  the  CK  function  which  appears 

2 

in  Table  8-1  and  which  defines  the  vertex  function  GQ.  The  m  in  the 

natural  logarithm  is  not  altered  because  when  it  was  altered  it  intro- 
duced a  small  error  which  grew  in  inverse  proportion  to  the  scale  of 
the  mass.  The  changes  that  were  made  are  summarized  in  Table  8-1. 
Table  8-1  represents  the  Extended  Mass  Shell  Solution  (E. M.S.S.). 
The  E. M.S.S.  performs  dramatically  better  than  the  M.S.S. 

Figure  8-1  has  been  prepared  to  illustrate  how  extensive  the  solution  is. 

?  2 

For  any  relative  value  of  k  to  m  the  graph  plots  the  dependence  of 

2  2     2  2  2 
the  solution  on  the  variables  p  /k  and  u  k  /p  .  The  error  is  less 

2  2  2      5 
than  three  percent  in  the  region  bounded  on  the  right  by  u  k  /p  =1x10 

?      ?  -3 

and  on  the  bottom  by  p  /k  =  1  x  10  .  However,  when  the  approach  to  the 

mass  shell  is  extremely  close  there  is  a  rise  in  the  error  in  the  sixth 

and  seventh  vertex  equations  which  was  attributed  in  Chapter  7  to  the 

difficulty  in  obtaining  extremely  accurate  third  order  derivatives  in 

the  function  G  .  Otherwise  the  functions  represent  a  very  regular  and 

predictable  solution.  The  solution  is  marred  by  only  the  limitation  that 

u2k2/p2  <  105  and  p2/k2  >  10"3. 


116 


TABLE  8-1  THE  EXTENDED  MASS  SHELL  FUNCTIONS 
F  =  |  e(A1+A2)^/l1  d3 


I  =  {  a/l,  dB 


Go  =  1   +f/I2dB-TCK-!/i3 


I,  df 


2  rTx 


Io  df 


v  fp7 

G2  =  |  (2p2u+*)[/l>  +/lJdB]  ~  |  ^/lX3dB 

V-  ^fe  (A1+A2)k2p2/l^X  d3 

2 
Hl    =  4  (A1+A2)[-£k2/l^X3dB  -   2(p2k2u  +  Y)/T5X  d6] 

H2=^(A1+A2)k2[/lXdS+^/l6dB] 

+  ^(A1+A2)k2(f  +^)[/l^Xd3+    /lXX3d3] 


JL  I-4 
64 


k4(A1+A2)/lgX3  d3 


9    9    1 

£  =  (pV)2 


p-k 


i   2   b2. 
(P   'k  . 


i   r& 


'l-^lxf'-l1-^1 


vi'-^&M1-? 


i3  =  'fiiV"B'^!Ci-'1  ,n "-" 


-  ^  ♦  ii 


TABLE  8  -1    (Continued) 
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V^lW  Ta  ln  i1      u 


CK  -   (1-^lnfl   -^1)    +  (1 


m 


~2 
P2 


In     1  - 


"7 

m 


2y 


?!1",-4)ti,n(1 


2   ">    I' -5 


1 


Vo*c 


'"f  I' 


V 


VHpf'1 


In       1 


L2(z) 


in   (1-z)f 


5        y3   L 


->M13)4 


+  ~>;   ln(l   -  i)  +  ^ 


rxx       1 


where 


Lx26   v  V  x, 


l 


i  -  i 


\ 

3 

2  -4  ln 

x. 


1   -  -* 


v3       1 


x6  =  [p  +^(B+l)k]2 

^  =  A1A2"  |n-32)k2 


a  =  fine  structure  constant 


x 
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~1 


N^ 


'2 
x 


or 

o 
a: 
a: 

UJ 


N 

?     D 
'2 


o| 
o' 

i  ml 


x 


lift 


2 
8-3  The  Large  k  Region 

It  is  not  difficult  to  see  that  the  solution  represented  by  either 

Table  6-1  or  Table  8-1  is  not  going  to  be  a  valid  solution  to  the  vertex 

2 
equations  when  the  magnitude  of  k  grows  very   large  relative  to  the  magni- 

2 
tude  of  p  .  A  necessary  condition  for  the  self  consistency  of  the  M.S.S. 

is  that  it  should  be  dominated  by  the  leading  term  G  =  1.  However,  since 

the  functions  F,  I,  H  ,  H-,  ,  Ho  and  G2  are  proportional  to  the  first  and 

2 
second  powers  of  k,  it  is  indicated  that  for  fixed  p  and  sufficiently 

large  k,  these  functions  will  grow  to  dominate  over  the  contribution 

2 
from  G  =  1.  Actual  determinations  of  the  M.S.S.  in  the  large  k  region 

2     3  2 
(that  region  where  k  >  10  p  )  do  show  these  functions  are  much  larger 

than  G  =  1.  In  addition,  when  the  M.S.S.  was  extended  by  the  replace- 

2 
ment  of  m  by  (A-,+Ap)/2  it  was  assumed  that  p,  was  not  greatly  different 

2  2  2      2        2      2 

from  p2.  This  corresponds  to  assuming  |u  k  |  <  |p  |  and  |k  |  <  |p  |. 

For  these  reasons,  it  is  easy  to  see  that  neither  the  M.S.S.  nor  the 

2  2      2 
E. M.S.S.  should  perform  properly  in  any  region  where  |u  k  |  »  |p  |  or 

|k2|  »  |P2|. 

The  correction  to  the  problem  is  easily  proposed  though  the  actual 

achievement  of  the  correction  may  be  very  much  more  difficult.  To  correct 

the  problem  would  necessitate  returning  to  the  beginning  and  assuming  some 

2 
approximate  form  for  the  large  k  behavior  of  the  functions  F,  I,  H  ,  H, , 

Hp  and  G~.  The  differential  equations  from  this  approximation  will  be  too 

complicated  to  solve  directly.  As  was  done  in  Chapter  VI  and  Appendix  B, 

the  closest  approximation  to  the  real  equations  which  is  solvable  would 

have  to  be  used  as  an  initial  guess.  Finally  the  new  functions  would 
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have  to  satisfy  the  boundary  condition  that  they  should  smoothly  join  the 
functions  in  the  E.M.S.S. 

Basicly  the  problem  is  that  the  solution  that  we  have,  has  built  into 
it  certain  expectations  about  the  relative  magnitudes  of  the  variables. 
The  solution  could  be  said  to  have  a  well-defined  region  of  convergence. 
A  trivial  example  is  useful  to  illustrate  this  difficulty.     Consider  a 
function,  f,  of  two  variables  p  and  q,  given  by 


f(p,q)  = 


1 


2p-3q' 


(8-1T) 


Occasionally  a  function  of  the  sort  is  needed  in  the  form  of  a  series 
expansion, 


f(p,q)    -^ 


1       2p  +[2pJ        ••' 


(8-12) 


Some  finite  number  of  terms  in  the  expansion  will  represent  the  function 

to  a  particular  level  of  accuracy  as  long  as  £  <  -*.     Thus,  f(2,l)  could 

p        o 

be  calculated  by  Eq.    (8-14)  but  f(l,2)  could  not  be.     If  the  value  of 
f (1 ,2)  was  desired,  it  is  necessary  to  return  to  the  basic  function, 
Eq.    (8-13)  and  rewrite  the  expansion  so  that, 


f(p,q)=-4Jl+(¥)    ♦&?♦.-. 


*?+{% 


3q 


(8-13) 


In  this  illustration  it  is  of  course  exceedingly  simple  to  write  out  the 
second  expansion.     If  the  second  expansion  was  harder  to  come  by,  it  might 
be  faster  to  look  for  a  symmetry  in  the  function  in  Eq.    (8-13)  which  could 
provide  a  relationship  which  could  predict  the  value  of  f(l,2)  in  terms 
of  the  first  expansion.      It  is  clear  that  the  right-hand  side  of 


121 


3 
Eq.  (8-13)  is  unaffected  under  a  transformation  which  replaces  p  by  -^  q 

2 
and  q  by  -~  p  and  reverses  the  sign  of  the  whole  expression.  Thus, 

f(p,q)  =  -  f(|q,|p),  (8-14) 

1 

and  therefore,  f(l,2)  =  -  f (3,2/3) .  The  value  of  f(l,2)  may  be  obtained 

by  evaluating  the  negative  of  f(3,2/3).  The  value  of  f(3,2/3)  can  be 
obtained  from  the  first  expansion.  It  can  be  seen  then  that  if  the  second 
expansion  is  for  some  reason  difficult  to  procure,  the  first  expansion 
plus  a  symmetry  relation  will  serve  the  same  purpose. 

It  would  be  most  useful  if  some  kind  of  symmetry  could  be  found  to 
evaluate  the  vertex  functions,  outside  of  the  region  of  three  per  cent  error, 
in  terms  of  the  functions  at  a  point  inside  the  region  of  three  percent 
error.  With  this  thought  in  mind  consider  the  relative  magnitudes  of 
the  incoming  and  outgoing  electron  momenta  of  the  vertex  function 
r'i(p,q),  where  q  =  p  +  L  The  incoming  electron  momentum  squared  is  p  , 

and  as  long  as  p  /k  >  10~  and  u  k  /p  <  10  ,  ry(p,q)  can  be  determined 

2   2   -      2 
from  Table  8-1.  Yet  the  outgoing  momentum,  squared,  q  =p  +  2p*k"  +  k  , 

is  not  restricted  like  the  incoming  momentum, 

2 
0  <%<<*>.  (8-15) 

vr 

If  there  were  a  symmetry  relation  between  r^(q,p)  and  r^(p,q),  then  the 

vertex  could  be  evaluated  for  cases  where  the  incoming  momentum  squared 

-3  2 
was  less  than  10  k  . 

There  is  an   intuitive  feeling  that  there  should  be  a   relationship 

between  the  amplitude   for  a   process   that  goes   in  with  momentum  p  and 
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out  with  momentum  q  and  the  amplitude  for  a  process  that  goes  in  with 

momentum  q  and  out  with  momentum  p. 

27 
In  a  report  by  A.  A.  Broyles,   the  symmetries  of  the  vertex  func- 
tion were  exhaustibly  analyzed.  He  used  the  following  abbreviated  nota- 
tion for  the  complete  vertex, 


ry  (p,q)  =  F*(p,q)  +  YVGV"P»q)  +  ^H^  (p.q) 


LT 


+  iY5YVI^,(P,q).  (8-16) 


For  comparison,  the  complete  vertex  from  Eq.    (2-17)  is  repeated  here 
with  the  notation  consistent  with  the  use  of  Table  8-1  to  define  the  eight 
transverse  scalar  functions,  and  consistent  with  Ward's  Identity  having 
been  applied  to  identify  the  longitudinal   scalar  functions. 


,y 


rj|T(p,q)  =jk    F(P2.k2»u,m)  +  yyG0(p2,k2,u,m) 

+  A    ^(p^.u.m)  +^    G2(p2,k2,u,m) 

-  2ip^aVB4r(P2*k2'u'm)-  2^\  ^(P2.k2»u,m) 

P    K 
K 

+  ^[A(q2).A(p2)]_i^  +  k^.  (8.17; 


TBecause  the  reader  has  become  accustomed  to  notation  representing 
the  transverse  vertex  by  r^,  the  designation  T[_j  will  be  used  to  signify 
the  complete  vertex  equation. 
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For  future  reference  we  will   equate  Eqs.    (8-16)  and   (8-17)  and  make  the 
following  identifications. 

FTp,q)   =  j£  F(p2,k2,u,m)  +  i£  [A(q2)   -  A(p2)] 

y 

Gy  (p,q)  =  g^G  (p2,k2,u,m)  +  —£■  G,  (p2,k2,u,m) 

P 


P\    ,,2,2         ,        kV    k"P 


+  -p1T    G2(P    'k   'U'm)   --2~+T2 


77  77 

Hyvn(p,q)  =  -  2ip\kn-^  (p2,k2,u,m)  -  2igy)Pn^  (p2,k2,u,m) 

P    K 

^2      ,2,2 


-  2igu  k      -4     (p   ,k   ,u,m) 

3«v  n    1,2      ^ 


k 
I^v(p,q)  -  -  ieyaB  vP6ka  ^  (p2k2u,m).  (8-18) 

Having  established  the  new  notation  in  relation  to  the  more  familiar  one 
we  now  examine  the  symmetries  of  Eq.    (8-16). 

Under  charge  conjugation  of  the Yy matrix  transforms  in  the  following 
way, 

(CY0)Yy*(CY0)"1   -  -  Yy,  (8-19) 

u  r.2o 

where  C  =  iy  Y   » 

and  since  Y°Yy  y°=y  (where  T  represents  the  transpose  operation), 

c-y  c=-YyT-  (8"20) 

The  vertex  function  transforms  under  charge  conjugation  in  the  same 
fashion  as  Yy  does , 

C'V^  C  =  -  r*J  .  (8-21) 
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This  places  the  following  restrictions  on  the  tensor  functions  Fy,  Gy  , 


v 


HM      and  IM  , 

•v  *v 


Fy(-p,-q)*  =  -  Fy(p,q)  (8-22) 

GM-p,-q)*  =  Gy  ,(p,q)  (8-23) 


H^(-p.-q)*  =  H^vn(p,q)  (8-24) 

l»  (-p.-q)*  =  -  iMp.q).  (8-25) 


The  yy  matrices  are  self-adjoint  and  the  vertex  function  will  transform 
like  yy  so  that 

I*T(p,q)   =  Y°r^T(q,p)*T  Y°  =  rj^p.q)  (8-26) 

where  the  bar  over  ry  stands  for  the  adjoint  operation.     When  the  adjoint 
operation  is  applied  to  Eqs.    (8-22)  through   (8-25)  the  following  relations 
are  obtained, 

Fy(p,q)   =-  Fy(-q,-p)  (8-27) 

Gyv(p,q)  =  Gyv(-q,=p)  (8-28) 

H^(p,q)   =  Hyvn(-q,-p)  (8-29) 

iMp.q)   =-Iy  (-q,-p).  (8-30) 


Thus 


rfT(q,p)   =  -   Fy(-p\-q)   +  YVGyv(-p,-q) 


+  avnH^     (-p.-q.)  -  iYVlVJ  (-P.-q).  (8-31) 
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Eq.    (8-18)  can  be  used  to  identify  the  tensors  on  the  right  of  Eq.    (8-31) 
in  terms  of  the  scalar  functions.     We  find 

rfT(q,p)    ={£  F(p2,k2,u,m)   +^  [A(q2)   -  A(p2)] 

+  Y\(p2,k2,u,m)  +  p^    -1  (P2>k2u,m) 

P 

>§  G2(p^,U,™,-f  ,f 

+  2iaa6p  kRPy-T2   (P2'k2'u'm) 

+  2iayapa-^  (p2,k2,u,m)  +  2iay\-4  (p2,k2,u,m) 

"  eyaBVAvP3kaX(p2>k2jU,m).  (8_32) 

We  return  to  our  principal   interest  in  the  transverse  components  of  the 

vertex  only.     Furthermore,  because  Figure  8-1   holds  for  any  ratio  of 

2  2 

|k  |   to  m     the  eight  transverse  scalar  functions  are  identified  by  the 

2     2 
variables  which  form  the  axis  of  graph  in  Figure  8-1,  namely,  p  /k    and 

2  ?     2  2     2 

u  k/p     plus  a  statement  of  the  magnitude  of  k  /m  .     Therefore,  we  will 

write  the  transverse  vertex  as 

rVi(q.P)  =j£  F(p2/k2,u2k2/p2)  +YyGn(p2/k2,u2k2/p2) 


pk 

"( 
U    ~2  W  /*    »u   *  IV   I   T  V ">  "pk 


+  p^  4  (pV.uV/p2)  +  pyk  -J  (p2/k2,u2k2/p2) 
P 


u 

-  p^Wi-A  (p2/k2,u2k2/P2) 
pV 
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[Yy,0]  4  (p2/k2,u2k2/p2)   -   [-yy,k]  -|  (P2.k2,u,m) 


-    e^Y5yvP3kaiR(p2/k2,u2k2/p2)  (8-33) 

2     2 
for  q  =  p  +  k"  and  for  some  fixed  k  /m   . 

A  comparison  with  Eq.    (8-3)   reveals  that  the  difference  between 

the  expressions  ry(p,q)  and  ry(q,p)   is  only  that  the  signs  of  the 

H       H-i ,  TL  and  T  functions   have  been   reversed. 

2      2  2  2     2 

ry(q,p)   is  a  function  of  the  variables  q  /k     and  u  k  /q     for  a 

2     2 
particular  k  /m   . 

uQ   =  ^\^  ■  (8-34) 

q        (q2)2(k2)2 

It  has  been  related  to  a  particular  combination  of  the  eight  scalar  func- 

2  2   2  2  2 
tions  which  are  defined  by  the  coordinates  p  /k  ,  u  k  /p  for  the  same 

2  2 
k  /m  .  Since  q  =  p  +  k,  it  follows  that 

2         2/  22\J 
S^J2^2(JCR-)    +   1  (8-35) 


and 


2.2  .    ?   ,2 


V  =  [(u2p2/k2)2  +  1]2(%V  (Q-36) 

q  Vq    / 

2     2  2   2     2 

We  would  like  to  show  that  any  value  of  q  /k     and  u  k  /q     outside 

2  2  2  2  2 

of  the  three  percent  error  region  maps  onto  a  point  (p  /k  ,u  k  /p  )  in  the 

interior  of  thethree  percent  error  region.  To  do  this  we  will  examine 

-2  2 
three  cases.   In  the  first  case  we  can  select  q  /k  to  have  some 


127 


2  2  2  5 

arbitrary  value  and  show  that  u  k  /q  increasing  from  10  to  infinity 

2     2        2  2      2 
maps  to  a  line  of  (p  /k  ,  u  k  /p  )  points  in  the  one  percent  region. 

Consider  Figure  8-2  which  is  a  replica  of  Figure  8-1.  The  vertical  axis 
describes  the  ratio  of  the  incoming  momentum  squared  to  the  photon  momen- 
tum squared.  The  horizontal  axis  is  the  quotient  of  the  square  of  the 
angle  variable  for  the  incoming  momentum  and  vertical  axis  variable. 
The  shaded  area  covers  the  three  percent  error  region.  For  our  example, 
let  q2/k2  =  b2  and  let  u2k2/q2  =  105a2.  When  a  is  allowed  to  vary  from 
one  to  infinity  a  line  of  points  is  drawn  on  the  graph,  denoted  by  the 

arrow. 

2     2  2  2     2 

Next  we  solve  for  p  /k     and  u  k  /p   , 


p2/k2   =  b2   +  2(a2105)i  b2  +  1 


and 


,2.2,2  _      T(a2   IP5)"  b2  -   l]2 

ry  +  2(a^  lcn2  b  -  ir 

For  any  fixed  value  of  b,  varying  a  from  -   1     to  -  °°  draws  a  line  of 

2     2  2   2     2 

points  with  increasing  p  /k     and  u  k  /p     approaching  1/4.     This   line  is 

the  new  arrow  that  appears   in  Figure  8-3. 

By  a  similar  analysis   it  can  be  shown  that  for  a  fixed  value  of 

222?  22  -32 

u  k  /p     =  b     and  a  value  of  q   /k     =  10     /a     where  a  ranges   from  1   to  °° 

q  ~~ 

a  line  is  drawn  from  the  lower  boundary  of  the  one  percent  region.     The 

line  appears   in   Figure  8-4,   pointing  vertically  down.     The   infinite   line 

2      2        2  2      2 
of   (q   /k    ,   u   k  /q    )   points   is  mapped  onto  a   short  finite  line  of 

9       9  9    9        9 

(p  /k  ,  u  k  /p  )  points  which  approach  the  value  (1,1). 
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2 
By  repeating  this  process  of  drawing  horizontal   lines  for  b    fixed 

and  vertical  oines  for  a  fixed  and  negative,  it  is  possible  to  see  how 

the  (q2/k2,  u2k2/q2)  region  maps  onto  the  (p2/k2,  u  k  /p  )  region. 

In  Figure  8-5  an  illustration  is  given  of  this  relationship. 

In  conclusion  we  find  that  Table  8-1   gives  a  description  of  the 

2     2  -3 

solution  to  the  transverse  vertex  equation  for  the  region  p  /k    >  10 

and  u2k2/p2  <  105.     It  is  possible  to  evaluate  the  solution  outside  of 

the  region  by  the  relation  given  in  Eq.    (8-33)  for  ry(q,p)  where  the 

coordinates  of  incoming  momentum  q  are  related  to  those  of  an  incoming 

momentum  p  by  Eqs.    (8-35)  and   (8-36). 
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CHAPTER  IX 
THE  CONCLUSION 

A  solution  has  been  found  to  the  Schwinger- Dyson  equations  based  on 
an  approximation  scheme  which  is  characterized  by  the  following: 

(1)  the  photon  propagator  is  approximated  by  its  form  near  the  mass  shell, 

(2)  the  infinite  hierarchy  of  the  vertex  equation  is  cut  off  at  the 
second  order  in  the  coupling  constant  and  the  remainder  is  approximated 
by  Green's  generalization  of  the  Ward  Identity  for  higher  order  diagrams. 

It  was  found  that,in  order  to  obtain  a  finite  solution  to  the  electron 
propagator, the  photon  propagator  had  to  be  fixed  in  the  Landau  gauge, 

The  bare  mass  of  the  electron  was  found  to  be  zero  as  predicted  by 

1 3 
Johnson,  Wiley  and  Baker.         Unlike  Johnson,  Baker  and  Wil ley.,  who  concen- 
trated on  finding  the  asymptotic  form  of  the  electron  propagator,  a  com- 
plete solution  for  all  momenta  was  found.     It  took  on  a  very  simple  form, 


S(p) n ! o-  .  (9-2) 

A(p^)  -  4  B(p^) 


The  functions  A  and  B  were  defined  in  Eqs.    (3-15)  and   (3-16). 

An  analytic  solution  to  a  simplified  approximation  of  the  vertex 
equation  was  found  by  H.S.   Green.     His  solution  forms  the  basis  of  the 
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Mass  Shell  Solution.  This  expression  formed  an  extraordinarily  success- 
ful solution  to  the  complete  vertex  equation  (approximate  only  to  the 
extent  of  points  (1)  and  (2)  above).  This  analytic  solution  was  repre- 
sented by  a  numerical  process  and  tested  for  its  range  of  applicability. 
It  was  found  to  be  a  good  representation  of  the  solution,  not  only  in  the 
region  for  which  it  was  designed  but  also  in  the  region  of  an  electron 
momentum  squared  as  large  as  10  .  This  solution  was  then  extended  by 
making  some  deductions  about  how  the  solution  should  behave  in  the  asymp- 
totic region.  The  Extended  Mass  Shell  Solution  was  found  to  be  a  good 
solution  for  the  range  of  the  variables, 

p2/k2  >  10" 3 

u2k2/p2  <  105,  (9-3) 

where  p  is  the  incoming  momentum  squared  of  the  vertex,  ry(p,p+R), 
k  is  the  photon  momentum  squared  and  u  =  p -Tc/(p  k  )  .  The  Extended 
Mass  Shell  Solution  provides  an  identification  of  the  transverse  vertex 
function. 

ry(p,p+K)  ={£f(p2A2,  u2k2/p2,  k2/m2) 

+  Yy  GQ(p2/k2,  u2k2/p2,  k2/m2) 

+  -^G1(p2/k2,  u2k2/p2,  k2/m2) 
P     _ 

+  Py^  <P2/k2'  "W.  k2/m2) 

XT 

+  Py[|^]  -A  (p2/k2,  u2k2/p2,  k2/m2) 
pV 
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+  [Yy,0]^  (pV,  u2k2/p2,  k2/m2) 

+  [yy.k]-|  (p2/k2,  u2k2/p2,  k2/m2) 
k* 

+  ^  y\pvka  ^  (pV.  u2k2/P2,  k2/m2)  (9-4) 


where    the  eight  scalar  functions  F,  G,  G-j ,  G,,,  HQ,  H-j ,  H2  and  I  are 
defined  in  Table  8-2  and  pk  is  defined  in  Eq.    (8-1).     The  longitudinal 
part  of  the  vertex  is  given  by 

^(p.p+R)  =  £  [A((p+fc)2)  -  A(p2)]  -  ty  +  ^l  .  (9-5) 

long  k  k  k 

The  above  description  of  the  transverse  part  of  the  vertex  fails 
outside  the  region  bounded  by  Eq.  (9-3).  However  a  symmetry  principle 
can  be  used  to  prescribe  the  value  of  the  transverse  vertex  at  a  point, 

(q2/k2,  u2k  /q  ,  k  An  )»  outside  of  the  region,  in  terms  of  the  eight 

7     7       7  7     7       2  2 
scalar  functions  evaluated  at  the  point,  (p  /k  ,  u  k  /p  ,  k  /m  ). 

In  this  case 

Ty(q,p)   ={£F(p2/k2,   u2k2/p2,   k2/m2) 

+  Y\(pW.  u2k2/p2,  k2/m2) 

+  £^G1(p2/k2,  u2k2/p2,  k2/m2) 
P 

+  p^^  (p2/k2,  u2k2/p2,  k2m2) 

-  Py[M]  -A  (p2/k2,   u2k2/p2,   k2/m2) 
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-  [Yy,Ff]^  (p2/k2.  A2/P2,  kV) 

-  e^  ^Vvka  h  (p2/k2>   u2k2/p2'   k2/m2)  (9_5) 

where  the  point  (q2/k2,  u2k2/q2)  is  related  to  the  point  (p2/k2,  u2k2/p2) 
by  Eqs.    (8-35)  and   (8-36). 

This  solution  represents  a  substantial   improvement  over  all  earlier 

15 
attempts  to  find  a  nonperturbative  solution  to  the  vertex  equation.     Work 

by  other  researchers  has  been  characterized  by  a  dependence  on  renormaliza- 
tion  techniques  to  keep  the  solution  finite,  or  else  only  asymptotic  forms 
of  the  eight  transverse  functions  were  sought,  usually  involving  more 
drastic  approximations  than  have  been  applied  here.     Furthermore,  due  to 
the  great  complexity  of  the  equations,  typically  only  the  asymptotic  forms 
of  the  T,  G  ,  G, ,  and  GL  were  solved  for..     Thus,  the  Extended  Mass  Shell 
Solution  to  the  vertex  equation  is  sharply  contrasted  with  earlier  solu- 
tions by  its  completeness. 

It  cannot  be  said  that  the  combined  solutions,  described  here,  for 
the  electron  propagator  and  the  vertex,  constitute  by  any  means  a  complete 
resolution  of  the  uncertainties  present  in  the  theory  of  Quantum  Electro- 
dynamics.    However,  the  success  of  this  method,  to  this  level  of  approxi- 
mation, is  encouraging  evidence  that  the  unreasonable  infinite  quantities 
that  occur  in  perturbation  calculations  of  the  self-energy  of  the  electron 
and  the  vertex  part  are  not  essential.     This  work  has  demonstrated  that 
a  consistent,  noninfinite  solution  for  the  electron  propagator  and  the 
vertex  can  be  found  given  an  approximate  form  for  the  photon  propagator. 
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Future  work  would  look  toward  solving  all   three  of  the  Schwinger-Dyson 
equations  simultaneously  for  the  three  basic  functions,  the  vertex,  and 
electron  and  photon  propagators.     The  present  work  gives  rise  to  favor- 
able expectations  that  a  simultaneous  solution  to  all  three  equations 
would  continue  to  be  characterized  by  the  absence  of  any  divergences. 
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APPENDIX  A 
DIRAC  GAMMA  MATRICES:     DEFINITIONS  AND  PRODUCT  RULES 

P. A.M.   Dirac  constructed  a  relativisticly  covariant  equation  for 
the  motion  of  the  electron.     In  order  to  achieve  this,  the  form  of  the 
equation  needed  to  be  invariant  under  a  Lorentz  transformation.     An 
invariant  scalar  quantity  is  expressed  as  a  product  between  a  contra- 
variant  and  covariant  vector. 

x^x     =  g      xV  (A-l) 

u        3UV 

The  metric  tensor  is  defined  by, 

g      =0     for  u  f  v  y,v  =  0,1,2,3 

9jj  =  -1   for  j   =  1,3  (A-2) 

9oo  =  '■ 

The  contravariant  metric  tensor  is  defined  by  the  relation, 

guv  -  g    .  (A- 3) 

The  contraction  of  gyotg   is  known  as  6y. 

6U  =  gyag  .  (A-4) 

It  follows  that 


6M  =  0   for  u  f   v 

v 

6V  -  1   for  u  =  v  . 
v 


(A-5) 
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The  Dirac  equation  for  the  relativistic  particle  with  spin  needed 
to  be  linear  in  both  time  and  space  derivatives  alike  and  needed  to 
correspond  to  the  second  order  Klein-Gordon  equation  which  provided  for 
the  correct  energy  momentum  relation  for  a  relativistic  particle. 
To  accomplish  this,  a  familiar  representation  of  the  Dirac  equation 
(although  not  the  original  one),  employs  a  set  of  matrices  called 
Dirac  gamma  matrices. 


o 

Y      " 


YJ    - 


1  o- 

L0  1- 

0  aj" 

_-aj  0  J 


(A-6) 


where  cf1   represents  the  Paul i   spin  matrices. 

The  Dirac  gamma  matrices  are  related  to  the  metric  tensor  by  an 
anti commutation  relation, 


V  v  .     v  u  _  0  uv 
Y  Y     +  y  Y     =  29     • 


(A-7) 


All   possible  products  of  gamma  matrices  constructs  a  group  of  16 
linearly  independent  4x4  matrices.     These  are 


U  Yy   '  <V  Y5'  Y  V 


In  this  work  we  have  used  the  definition  of  the  elements, 


o       =  1  [Yy  YV] 
yv   2 

5    o  1  2  3 

Y   ■  Y  Y  Y  Y  • 


(A-8) 
(A-9) 
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The  definition  of  y  is  not  standardized  throughout  the  literature. 

g 

This  designation  agrees  with  that  used  by  J.  M.  Janch  and  F.  Rohrlich 
but  differs  from  that  used  by  J.  Bjorken  and  S.  Drell   by  an  i. 

In  working  out  the  expansion  of  Eq.  (4-16),  products  of  the  sixteen 
matrices  are  taken  repeatedly.  A  multiplication  table  for  all  possible 
products  was  constructed  and  appears  in  Table  A-l.  In  constructing  the 
table  the  following  definition  of  the  Levi  Civita  antisymmetric  tensor 
was  used, 


e  .  .  =    0  unless  a,  6,  y  and  6  are  all  different 


'1234 


1234 

e 


'+  1  for  even  permutations  of  the  indices 

-  1  for  odd  permutations  of  the  indices 

"-  1  for  even  permutations  of  the  indices  (A- 10) 

.+  1  for  odd  permutations  of  the  indices 


The  following  identities  have  proven  useful: 

4eAay\5Y({)  =  {ya,[y\  yy]}  (A-l  1) 

where  {  }     enclose  the  anti commutator  and  [  ]  enclose  the  commutator. 

eX*YV  e  Aor  a^  -  26A  c^  +  26v  XAv  +  2gv  ayX  (A-12) 

e^  e  ^  a^  -  4aY\  (A-13) 
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APPENDIX  B 
DERIVATION  OF  GREEN'S  MASS  SHELL  SOLUTION 

B-l     The  Vertex  Equation  Near  the  Mass  Shell 
The  equation  for  the  vertex  function  is 


vV(Pl,p2)    =  4  yvFVA  +  3V7_1    FVX)  (B-l 


where 


and 


fvX  =  s(Pl)  *£-  [rA(Pl,p2)s(p2)]  s_1(p2).  (B-3) 

This  eauation  can  be  modified  slightly  by  the  approximation 

fvX  +  -  s(Pl)rx(Plp2)s(p2)Yv.  (B-4) 

This  will  be  a  good  approximation  in  the  region  of  the  mass  shell  where 
r  approaches  y  and  S  (p)  is  the  slowly  changing  function,  pf  +  A(p  ). 
The  following  definition  is  introduced, 

ax  =  s(Pl)rx(Pl,p2)s(p2).  (B-5) 

Now  a  solution  is  sought  to  the  modified  vertex  equation, 

V2rX  =  e()yvAXyV  +  dvfh\v).  (B-6) 
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This  equation  is  expected  on  the  basis  of  the  approximation  in  Eq.    (B-4) 
to  be  a  faithful  representation  of  (B-l)  equation  near  the  mass  shell. 
The  following  tensors  are  defined 

CX  =  \  tr  [rA]  (B-7) 

ci = I tr  [r\]  (B_8) 

CA     =itr  [r\     ]  (B-9) 

yv       4         L      'yvJ 

C        4tr  [r\       ]  (B-10) 

yvp       4         L      '  yvpJ 

DX=±tr[AA]  (B-1D 

DX=±tr[A\]  (B-12) 

DA  =  i  tr  [AAY   ]  (B"13) 

yv   ^    L   'yvpJ 

D*    ltr[A\   ]  (B-14) 

yvp   4    L  'yvp-1 

where 

Yyv  =  1   ^Yy,Yv^ 

Yyvp  =  2   {yy'Yvp}   " 

Take  the  product  of  Eq.    (B-6)  with  each  matrix,  n,  y   »  Yyv  and 

y        and  perform  the  trace.     This  converts  Eq.    (A-6)   into  a  system  of 

'yvp  v 

four  equations: 

V2CA  =  -   3eDX  (B-15-a) 

V2CA  =  2eDA  -  2ed  v"29VDA  (B-15-b) 

y  y  y  v 
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V2CA     =  -   e  DA     -   2  E 3   V~23PDA 
yv  yv  y  vp 

+  2e3   V~23PDA  (B-15-c) 

v  yp 

V2CA       =  -  2  e 3  V_23aDA 
yvp  y  vpa 

-  2e3  V_23aDA 

v  pya 

-  2e3  V"23aDA  (B-15-d) 

p  \ivo. 

The  electron  propagator  is  given  by 

0,  +  A,  ^o  +  A? 

S(pO   =~k 4      and       S(pJ   = -f £  (B-16) 

p2-A2  P2-A2 


where 


2, 


A, 


p1   =  p  +  R,     p2  =  p,       A(p1)   =  A-,,       A(p2)       r,2 

and  the  A  function  is  the  electron  propagator  function  which  was 

2     2       2     2 
determined  in  Chapter  III.     Allow  the  abbreviation  D,p =  (Pi"Ai ) (p2-A2) • 

When  this  is  done  the  D     tensors  are  expressed  as 
DX  =\  tr  [rA(p(2+A2)(^+A1)]/D12 

=  [(pfPg  +A1A2)CA  +  (A^  +  A2pV)CA 
"  PlPKv]/D12  (B-17-a) 

Dy  =1  tr  CrX(p*2+A2)Yy(01+A-|  )]/D12 

=  [(A2P1y  +  AlP2y)CA  +  (A1A2-   prp2)CA 

+  (PlypJ  ^  P2yP^)cJ  +   (A2pfAlPpcAv+p>pCAvp]/D12 

(B-17-b) 
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=  C-    (PlyP2v-P2yPlv)cA  +   (A2Plv-AlP2v)Ci 
"    (Vly  "  V2X  +   (Pn-P2  +  A-,A2)CJ;V 

"    (PlvP2+P2vPXp  +   (PlyP2  +  P2yP?>cX 


vp 
+  (A2pf  +  A]PP)CyAvp]/D12  (B-17-c) 

DyXvp=ltr[rVVW0l+Al)]/D12 

=  [(PlyP2v  "  P2yPlv)Cp  +  {PlvP2p  "  ?2  Pi    K 

+(PlpP2y-P2pPly)Ci+(A2Ply+AlP2y)Cip 

+  (A0Pi   +AnpQ  )CA     +  (A0pn   +A,p,  )c\, 
v   2Hv     lr2v     py  2Hp     r2p'   yv 

♦  (A,A2-Pl-P2)C^p  ♦   (p,^f*1Vl)C 

+  (PlvP2+P2vPl»Cppa  +  (PlpP2+P2pPl'C  <B-17-d> 

The  C    tensors  can  be  expressed  in  terms  of  the  eight  scalar  func- 
tions of  the  transverse  vertex,  where  r.  is  given  by 
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the  associated  tensors  are 

CA=PX^  (B-19-a) 

CA  =  6A  Gn  +  pAp  -I  +  pAk  4  (B-19-b) 

CA  =  (pAp  k  -  pAp  k  )  -*-%  +  (6Ak  -  6Ak  )  2  4 

yv   v^  ^v  y     y  V  .22   v  v  y    y  v'   .2 

+  (6AP  -  6Ap  )  -r^-  (B-19-c) 

v  v\i        yKv'  kp  v     ' 

CA   =  [6A(k  p  -k  p  )  +  6A(k  p  -k  p  ) 
yvp   L  yv  prv  vrp     vv  yrp  pry 

+  6A(k  p  -k  p  )]  -J"  •  (B-19-d) 

pv  v*y  yKv/J  kp 

The  system  of  equations  contained  in  (B-15)  is  still  a  heavy 
challenge  to  analyze.  An  additional  simplification  is  desirable.  It 
will  be  assumed  that  the  G  term  in  r  is  dominant  and  has  its  near  the 
mass  shell  value  of  1,  and  that  the  functions  A-,  and  A~  will  be  closely 
approximated  by  their  on  the  mass  shall  values  of  m  ,  the  experimental 
electron  mass.  These  are  exactly  the  assumptions  which  were  made  in 
approximating  F  v  by  A  y  in  Eq.  (B-6).  No  new  restrictions  to  the  solu- 
tion have  been  made.  The  effect  of  G  being  dominant  and  equal  to  1  is 

C  becomes  6  and  the  contributions  of  C  ,  C   and  C   are  small  rela- 

y  y  yv  yvp 

tive  to  C    and  can  be  neglected  in  Eq.    (B-17).     The  new  simplified  version 
of  (B-17)  is 

DA  =  2  m  pA/D]2  (B-20-a) 

DA  =  [(m2-prp2)6A  +   (Ply+P2y)pA]/D]2  (B-20-b) 
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C  =m[(P1v"P2v)<-    (Plu-P2X]/D12 


(B-20-c] 


DL  =   [(pluP2/P2uPlv)6p+   (PlvP2p-P2vPl 


)6A 
P      M 


+   (p,    p0   -p0   p,    )6    l/D-,0. 


(B-20-d) 


The  new  expressions  for  the  D  tensors  will  be  used  to  solve  the 
four  equations  in  (B-15).  To  facilitate  the  solution  observe  the  fol- 
lowing general   relationships. 

Let  x     =   (x+a)2  =  x2  +  2xa  +  a  . 
a 


If 
then 

Let 


,2    *a 


r*(-j)   =  — ^ 


x  -m 

a 


»A)    =1(1-^)   m    (1-% 
ma  m 


(B-21 


(B-22) 


xD  =  [p+  (3+1)4  R]'  and  u     =  m2-|(l-32)k2. 


'2 


(B-23) 


If 


A  "   (p2-m2)(p2-m2) 


then 


d3 


-1      (x3-u6)' 


1     P   dB  ln   n     \ 


(B-24) 


(B-25) 


If 


ln 


V^4> 


2     2 
P-|-m 


Po-m 


:b-26: 
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then 


K=l  dMb&) 


'-1 


d3(l-/)  In  (1-/). 


(B-27) 


if  v\-f_'  i^S)ln(1-^  * 


then 


■*/: 


where 


so  that 


L2(z) 


d$(m-ua) 


In  (1-z) 


W"   O-^lnO-^) 


dz 


(B-28) 


(B-29) 


(B-30) 


^o 


L2(z)dz  =  z  L2(z)  +  (z-1)   In  (1-z)  -  z. 


Using  these  general   transformation  rules,  the  system  of  Eqs.    (13-15) 
can  be  solved. 


B-2     Solution  to  Equation  (B-15-a) 

Substituting  the  definition  of  D     in  (B-20-a)  into  Eq.    (B-15-a) 
yields 


V2CA 


-  6emp* 
(p2-m2)(p2-m2; 


=  3&\d' 


In 


2     2 

prm     ~ 

P2-m 


2        2 

h  -  P2 


(B-31) 


By  using  the  definition  of  $B  in  (B-27)  and  letting 
$'  (z)   =  y-  <|>(z) ,  CA  can  be  determined. 
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CA  =  3m  d\ 


1-PX/?^    *'(^ 


/-I     u6 


3        X 


'1  d0ru 


'-1 


x;ln^u:)+1 


(B-32) 


This  equation  is  used  in  Chapter  VI  to  evaluate  the  scalar  function 
F(p2,y)  through  the  relationship  provided  by  (B-19-a). 


B-3    Solving  Equation  B-15-b 

S 
yields 


Substituting  the  definition  of  DA  in   (B-20-b)   into  Eq.    (B-15-b) 


X  „  rX. 


V2CA  =  2e 


i^-pfX  *  (Piu^p  -y 


where 


V2EA=3V 


(p2-m2)(p2-m2) 


V-P^X  +  (P1v+P2v)PX 
-         (p2-m2)(p^) 


] 


1        *  >         x  * 

Let  CA  =  C  6A  -  3  C  , 

y  u  y 


(B-33) 


(B-34) 
(B-35) 


Since 


(m2-prP2)6A  +  (P1y+P2y^PA 

/  2     2W  2     2n 
(p^m  )(p2-m  ) 


1  9 

2  3pA 


2     2 


(Ply+p2y}    ,     /Prm 

f   2     2v 
(P-|-P2) 


In 


2     2 
p2-m 
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2  ,  2     2. 

1     c        +-^-^ln 


(p2-m2)(p2-m2)       p2-p2         (p2-m2)J 


(B-36) 


Eq.    (B-33)  can  be  reexpressed  in  terms  of  two  equations. 
(Ply+P2y} 


2   *  1 

V^C       =  2e  ^ 

u  2 


Pi-P« 


In 


L    H  H2 


/    2     2\ 
p,-m 

-4— y      +  9  E 

„2     2  I  y 

p9-m 


and 


VdC      =  2e 


2  /  2     2   1 

m  -p1#p?  -,  /P-|-m 

!     L         +  -^  In  ' 


,2     2W  2     2x    '     2     2    "'       2     2 
(p^m   )(p1-m  )       p1-p2         (p2-m    / 


(B-37) 


with 


=  2e 


1  1 


1  1 


k2/2 


2  (p2-m2)  "  2  (p2-m2)       (p2-m2)(p2-m2) 


(pf-p|) 


In 


/    2     2\l 

prm 

~2~T 
I  P2_m 


V^E 


m  -p,   p 


1   K2         +         1 


In 


(p2-m2)(p2-m2)    "    (p2-p2)      '"  lp2-m2 


n2  m2' 
p^m 


1  -u 


12     2 
P-|-m 
~~ 2     2 
.    ■  ,  P2"m   ' 


(B-38) 


2m' 


In 


2     2 

p^m 


(p2-m2)(p2-m2)       (p2-p2)    ""    \^p" 


(B-39) 


From   (B-38)  and  using  the  definitions  of  <2>,  $A  and  <J>B  it  can  be  seen 


that 


2  2 

Pi  Pc 


C     =-  e*(-£)   -   £$(-£)   +  elC$A  +  2 


E^r 
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a 


'  Uft  k2  V 

0-£-\)  In  (1--^) 
3      2x„  V 


d6 


(l-\)  In 


L.       m  p9  m    - 


(B-40) 


From  (B-37)  an  expression  for  the  transverse  and  longitudinal 


*     ~*  *  ra     2 

components  of  C   ,  C    and  k  C  k  /k   ,  can  be  derived 

r  u      y  y  a 


V^C     =  2e 

y 


2     2 

p  p,-m 

^— In'     ! 


,  2~~27  '"I    2     2 
HP1-P2)        \  P2_m  ■ 


+  v] 


=  2e 


1 


l2  W-l     VU3        y- 


2e 


3y    1^     dBlnd-Jj+E 


-  2e  3  fi    \]f  (m2-u3)  In   (1  3) 

H.V-1     xb  u3. 


(B-41) 


since 


E  =  2md  $A  -  2*E 


f-l 


^(x6  +  m2-u3)ln(l-^) 


d3 


(B-42) 


Using  the  $    transformation  in  (B-41)  it  is  found  that 


y        2        y  c 


=  1  e  3 


'-1 


1  f  9       r   xr  u„  x  * 

((m2-u6)[L2(^)   +   (l-^)ln(l-^) 


d6 


4  e  Py 


,/       ~  (ni2-uj    f(^-l)    In   (1-^)   +  1 
l-/-l     u3  6     Lx3  UB  - 


d3  .  (B-43) 
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The  expression  for  the  longitudinal  part  of  C  in  Eq. 
/  2  2\    . 

'       In  I  4.  a  3  F 

i  4  2     2  ,    3d 


V2kyC*  =4e 


! B- 37 )  yields 

(B-44) 


Rearranging  this  expression, 


V2[kV-e(k-p  +  -|-)   E]   =4e 


In 


/    n2    m2 

^~~2 

\  P2"m   , 


-\  (k-p  +J^)V2E 


4£ 


L2     2 

i  ,     pi 

"2"        II2T2/     "   4   ,„2  „2W„2  m2. 


2     2     2 

T       m   (p1-p2) 


Pg-nT/        H  (Pi-mt)(P2-"ic)J 


9 
Using  the  expression   (B-39)   for  V  E  it  can  be  seen  that 


kaC*  =  e(k'p-V)E 


2 

(pfV)   In  (1-4 
m 


2 

-   (p2-m2)  In  (1-4)  -   (p2-p2) 
m 


,(kD  k2  r  *»s> 


In  (l--^)dB. 


(B-45) 


(B-46) 


By  combining  the  longitudinal   part  with  the  transverse  part  C 
is  defined 


vK/' i(m2-u°> 


"(uR-l)  x 

— § In   (1--/)   +  1 


dB 


\S~2    +  1>    I      Y-  ^-^  ln  (1F)  d6    •  (B"47) 

V     V6  C      J-1       XR  P  UR 
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Therefore  (B-40)  and   (B-47)  provide  the  needed  information  to  define 


C    since 
U 


CA  =  cV  -   3AC*  .  (B-48) 

y  y  v 


Equations   (B-40),   (B-47)  and   (B-48)  are  used  in  Chapter  VI   to  evaluate 
the  scalar  functions  G   ,  G1  and  G2  through  the  relationship  provided 
by  (B-19-b). 

B-4     Solving  Equation   (B-15-c) 

To  find  the  definition  of  the  CA     it  is  necessary  to  solve 
Eq.    (B-15-c), 

V2CA     =-eDA    -  2e3  V~23PDA     +2£3V"23PDA.    •  (B-15-c) 

yv  yv  y  vp  v  yp 

Alternatively,  since 

V23VCA     =  e  3VDA  (B-49) 

yv  yv 

so  that 

eV'W     =  3VCA  (B-50) 

yv  yv 

Eq.    (B-15-c)  could  be  equivalently  expressed  as 

V2CA     +  23   3PCA     -   23   3PCA     —  eDX  ,.  (B-51) 

yv  y       vp  v       yp  yv 

Inserting  the  definition  of  Dpv  given  in   (B-20-c)  into  this  yields 

V23VCA     =  OT(6Ak  3a  -    k  3A)       n     ?]     *     n     .  (B-52) 

^v  ya  y         (p2-m2)(p2-m2) 
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From  the  $«  relationship  it  can  be  seen  that 

8VCX    =  m(&X  k  3a  -  k  dx)$* 
yv  y    a  y        A 


1   Jrt  x 


=  -ldn(6Xk  9a-   k  9X)    /       ^ln(1"ir)-  (B"53) 

8  M  U        7-1     x0  u3 

This  can  be  used  to  form  the  terms   ^^P^p  and  3y9PCXp  in  Eq.    (B-50). 
Equation   (B-50)  then  becomes 


V2CA     =  dn[-  (6Ak  9a  -  k  3A)3 
yv  u  a  y        > 


i  r  -  in 


+   (6Ak  3a-   k  9A)3  ]    /       ^  In   (l-Tj^d 


-  an(<SXk  -<5Xk  )       9     J     ?     g   .  (B-54) 

v  V    V  U     (P^m2)(p22V) 

Using  the  transformation  relationships  for  *A  and  $c  it  is  possible 
to  show  that 


ri        x0  uD  x 

■l 


^f)^1-^1^1-^' 


+  ian(6Xk-6Xk  )    /  ]   In  (1  -  %  ±  dp.  (B-55) 

8   v  y  v  v  y'  y_-|       u^  x^ 

Equation  (B-55)  is  used  in  Chapter  VI  to  evaluate  the  scalar  functions 
H  ,  H,  and  H~  through  the  relationship  provided  by  (B-19-c). 
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B-5     Solving  Equation   (B-15-d) 

The  last  equation,   (B-15-d),  can  be  put  into  a  simpler  form  by 
performing  a  differentiation  with  respect  to  pp.     This  yields 


72aprA       __  2^0* 


Vt3MC 


yvp 


yvp 


(B-56) 


Usinq  the  definition  of  D        in  Eq.    (B-20-d)  this  becomes 

D  yvp 


v2aprX       _     ?    faAJPl   P2-P2  hj 
V  dKC =-  <:e:(  d    — * — 9" 2" — 2"^ 


yvp 


(prm  )(p2-m  ) 


+  3cr(PlvP2p-P2yPlp)       +  (PlpP2y-P2pPly)5v]A 
L  (p2-m2)(p2-m2)  J J 


v_  v 


When  Eq.    (B-56)   is  multiplied  by  p-j p2  a  new  equation  is  formed, 


(B-57) 


Klr2       yvp 


.22 

A_P_ 


2     2W  2  _2 


-3> 


(k2PV 


2     2W   2     2 


L    \(Pi-nr)(P2-nr)  (Pi-m^)(P2-mt) 


4ek2pA 


(p2-m2)(p2-m2) 


In  the  above  statement  use  was  made  of  the  fact  that 

pVp^V23pCX       =  V2pV  p^3pCX      , 
F1F2  uvo  H    K2        yvp' 


(B-58) 


a  consequence  of  the  antisymmetry  of  C       .     Using  the  $A  transform  again 


yvp 


gives 


*m*<U-*2*x  & 


(B-59) 


B     3 


Equation  (B-59)  is  used  in  Chapter  VI  to  evaluate  the  scalar  func- 
tion I  through  the  relationship  provided  by  (B-19-d). 


APPENDIX  C 
FORTRAN  PROGRAMS 


Presented  on  the  following  pages  are  the  Fortran  programs  which 
were  used  to  code  the  Main  Program  and  the  Extended  Mass  Shell  Program. 


157 


158 


IMPLICIT  REAL*8    (A-H.O-Z) 
C  THIS    IS   THE   MAIN  PROGRAM 

C  THE   EIGHT   DIFFERENCIAL  EQUATIONS    ARE    DEFINED   FOR   THE   VERTEX  EQUATION 
C  THIS   PROGRAM  READS   THE  VALUE   OF  P2,U,K2,SKL,SIGN   (    ELECTRON  MOMENTUM 
C  SQUARED,    ANGLE  VARIABLE,    PHOTON  MOMENTUM  SQUARED,    THE    SCALE    AND  THE 
C  SIGN  OF  P2    AND  K2,    BOTH  MUST  HAVE   THE    SAME    SIGN.) 

DIMENSION  DX2(8) 

COMMON/ SIGNPK/ SIGN 

COMMON/  SCALE/ SKL 

WRITE(6,701) 
701    FORMATC    NI.IX    FOR  RESULTS,  FUNCTIONS,  STORAGE') 

READ(9,*)    NI.LX 
C  THE    NI  =    1   GIVES   JUST  THE   RESULTS    OF  THE  EQUATIONS 
C  THE   NI  =2   GIVE   RESULTS   PLUS    FUNCTIONS 
C   LX  =    1    IS    DEFAULT 
C    IX  =   2   PUTS   THE   RESULTS   PLUS    FUNCTIONS    INTO   STOREPRINT 

READ(2,122)    P2  ,U,AK2  , SKL, SIGN 
122      FORMAT(D24.16,4D11.3) 

WRITE(6,74)   P2,U,AK2,SKL 
74    FORMATC    THE  POINT   IS   P2,U,K2;  »  ,3D15.7/ '    THE   SCALE' ,D15.7) 

WRITE(4,74)    P2,U,AK2,SKL 

SM=1.D0*SKL 
C  WRITE(6,17)    P2,U,AK2,SM 

IF(IX.EQ.2)WRITE(4,17)    P2.U.AK2 

AM2=SKL*SKL 

IF(IX.EQ.2)WRITE(10,17)    P2,U,AK2,AM2 
17    FORMATC    AT  THE   POINT   P2.U.K2 ,M2' ,D12.4 .3D12.4) 

X=FTBM(P2,U,AK2,SM,NI,IX) 
C  IF(NI.EQ.2)WRITE(6,21)    X 

21    FORMAT   ('    THE    FTBM  EQUALS' ,D20. 7) 

STOP 

END 
C  THIS    SUBROUTINE   TAKES    THE   VALUE   OF  THE   EIGHT    FUNCTIONS    AND   ALL 
C  DERIVATIVES    FROM  THE   DATA  MATRIX   (THE   EXTENDED  MASS   SHELL  SOLUTION) 
C   FORMAT  STATEMENT    113 
C  AND   CONTRUCTS   THE    LEFT   AND  RIGHT  HAND  SIDES. 

FUNCTION   FTBM(P2,U,K2,SM,NI,IX) 

IMPLICIT  REAL*8    (A-H.O-Z) 

DIMENSION  D2(8),TM(8),X(20) 

DATA  EP/2.322819D-3/ 

COMMON/  S IGNPK/  S IGN 

COMMON/ SCALE/ SKL 

REAL*8   K2,LPL,LSALP,LPLSN,LSLN,LGL,LPLG,LPP,LE 

DIMENSION  EROR(10,5),E(8) 

COMMON/S IMP/LPL,  LS  ALP ,  LPLSN,  LSLN,  LGL,  LPLG ,  LPP ,  LE , 
C  RPL,RSALP,RPLSN,RSLN,RGL,RPLG,RPP,RE 

COMMON/ SUBTT/TE(  14) ,TES(14) ,TEP(14) , A,  AP,  APP,B,BP,TO( 14) ,T0S(14) , 
C  TOP(14) 

COMMON/  FUNS/XF(8  ,  10 , 1,1) 

DIMENSION  XM(3,10) 

1=1 

J=l 

DO   13    IF=1,8 
13   READ(2,113)    (XF(  IF,  IT,  1 , 1)  ,  IT=1 ,10) 
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113    FORMAT(3D24.16/3D24.16/3D24.16/D24.16) 
PK=SIGN*DSQRT(P2*K2) 
POK=DSQRT(P2/K2) 
AKOP=DSQRT(K2/P2) 
R=P2 
S-K2 

PKU=PK*U 
U2=U*U 
TU=1.D0-U2 
P4=R*R 
P6=P4*P2 

CALL  TT(R,S,U,I,J) 
F=XF(1,1,I,J) 
FP=XF(1,2,I,J) 
FPP=XF(1,3,I,J) 
FPPP=XF(1,4,I,J) 
FS=XF(1,5,I,J) 
FSS=XF(1,6,I,J) 
FSSS=XF(1,7,I,J) 
FSP=XF(1,8,I,J) 
FSSP=XF(1,9,I,J) 
FSPP=XF(1,10,I,J) 
G0=XF(2,1,I,J) 
G0P=XF(2,2,I,J) 
G0PP=XF(2,3,I,J) 
G0PPP=XF(2,4,I,J) 
G0S=XF(2,5,I,J) 
G0SS=XF(2,6,I,J) 
G0SSS=XF(2,7,I,J) 
G0SP=XF(2,8,I,J) 
G0SSP=XF(2,9,I,J) 
G0SPP=XF(2,10,I,J) 
G1-XF(3,1,I,J) 
G1P=XF(3,2,I,J) 
G1PP=XF(3,3,I,J) 
G1PPP=XF(3,4,I,J) 
G1S=XF(3,5,I,J) 
G1SS=XF(3,6,I,J) 
G1SSS=XF(3,7,I,J) 
G1SP=XF(3,8,I,J) 
G1SSP=XF(3,9,I,J) 
G1SPP=XF(3,10,I,J) 
G2=XF(4,1,I,J) 
G2P=XF(4,2,I,J) 
G2PP=XF(4,3,I,J) 
G2PPP=XF(4,4,I,J) 
G2S=XF(4,5,I,J) 
G2SS=XF(4,6,I,J) 
G2SSS=XF(4,7,I,J) 
G2SP=XF(4,8,I,J) 
G2SSP=XF(4,9,I,J) 
G2SPP=XF(4,10,I,J) 
H0=XF(5,1,I,J) 
H0P=XF(5,2,I,J) 
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H0PP=XF(5,3,I,J) 

H0PPP=XF(5,4,I,J) 

H0S=XF(5,5,I,J) 

HOSS=XF(5,6,I,J) 

HOSSS=XF(5,7,I,J) 

H0SP=OCF(5,8,I,J) 

HOSSP=XF(5,9,I,J) 

H0SPP=XF(5,10,I,J) 

H1=XF(6,1,I,J) 

H1P=XF(6,2,I,J) 

H1PP=XF(6,3,I,J) 

H1PPP=XF(6,4,I,J) 

H1S=XF(6,5,I,J) 

H1SS=XF(6,6,I,J) 

H1SSS=XF(6,7,I,J) 

H1SP=XF(6,8,I,J) 

H1SSP=XF(6,9,I,J) 

H1SPP=XF(6,10,I,J) 

H2=XF(7,1,I,J) 

H2P=XF(7,2,I,J) 

H2PP=XF(7,3,I,J) 

H2PPP=XF(7,4,I,J) 

H2S=XF(7,5,I,J) 

H2SS=XF(7,6,I,J) 

H2SSS=XF(7,7,I,J) 

H2SP=XF(7,8,I,J) 

H2SSP=XF(7,9,I,J) 

H2SPP=XF(7,10,I,J) 

OXF(8,l,I,J) 

CP=XF(8,2,I,J) 

CPP=XF(8,3,I,J) 

CPPP=XF(8,4,I,J) 

CS=XF(8,5,I,J) 

CSS=XF(8,6,I,J) 

CSSS=XF(8,7,I,J) 

CSP=XF(8,8,I,J) 

CSSP=XF(8,9,I,J) 

CSPP=XF(8,10,I,J) 
677    FORMATC    THE   F' .D15.7/3D15.7/3D15.7/3D15.7/ '    THE  GO', 
C  D15.7/3D15.7/3D15.7/3D15.7/'    THE  Gl ' .D15.7/3D15.7/ 
C  3D15.7/3D15.7/'    THE  G2» .D15.7/3D15.7/3D15.7/3D15.7/ 
C  '    THE  HO',D15.7/3D15.7/3D15.7/3D15.7/'    THE  HI' ,015.7/ 
C  3D15.7/3D15.7/3D15.7/'    THE  H2' .D15.7/3D15.7/3D15.7/ 
C  3D15.7/'    THE    C   ' .D15.7/3D15.7/3D15.7/3D15.7) 

IF(NI.EQ.2)WRITE(6,677)  F,  FP,  FPP,  FPPP,  FS,  FSS,  FSSS  ,  FSP,  FSSP,  FSPP, 
C  GO , GOP ,GOPP .GOPPP ,GOS , GOSS .GOSSS ,GOSP .GOSSP ,GOSPP , 
C  G1,G1P,G1PP,G1PPP,G1S,G1SS,G1SSS,G1SP,G1SSP,G1SPP, 
C  G2,G2P,G2PP,G2PPP,G2S,G2SS,G2SSS,G2SP,G2SSP,G2SPP, 
C  HO ,HOP ,HOPP .HOPPP ,HOS ,HOSS .HOSSS ,HOSP .HOSSP ,HOSPP , 
C  HI, HIP, HIPP .H1PPP, HIS, HISS, H1SSS,H1SP,H1SSP,H1SPP, 
C  H2,H2P,H2PP,H2PPP,H2S,H2SS,H2SSS,H2SP,H2SSP,H2SPP, 

C  C,  CP  ,  CPP ,  CPPP  ,  CS ,  CSS ,  CSSS ,  CSP ,  CSSP ,  CSPP 

IF(IX.EQ.2)WRITE(4,677)    F,  FP,  FPP,  FPPP,  FS,  FSS,  FSSS,  FSP,  FSSP,  FSPP, 
C  GO, GOP ,GOPP , GOPPP ,GOS ,GOSS , GOSSS ,GOSP , GOSSP .GOSPP , 
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C  G1,G1P,G1PP,G1PPP,G1S,G1SS,G1SSS,G1SP,G1SSP,G1SPP, 
C  G2,G2P,G2PP,G2PPP,G2S,G2SS,G2SSS,G2SP,G2SSP,G2SPP, 
C  HO ,HOP ,HOPP ,HOPPP,HOS ,HOSS ,HOSSS .HOSP.HOSSP ,HOSPP , 
C  HI, HIP, HIPP, H1PPP, HIS, HISS, H1SSS,H1SP,H1SSP,H1SPP, 
C  H2 ,H2P ,H2PP ,H2PPP ,H2S ,H2SS ,H2SSS ,H2SP,H2SSP,H2SPP, 
C  C,CP,CPP,CPPP,CS,CSS,CSSS,CSP,CSSP,CSPP 

IF(IX.EQ.2)WRITE(10,711)  F.GO.Gl ,G2 ,HO,Hl ,H2,C 
711  FORMAT(4D20.9) 
C  RIGHT  HAND  SIDE  OF  THE  EQUATION 

RGL=EP*(  TO(l)  +TO(7)  +4*TO(8)  +2*P2*TOP(8)  +2*POK*U*TOP(9) 
C        +TU*TOS(9)/PK  ) 

RPP=EP*(  2*TOP(l)  -U*TOS(l)/P2  +6*TO(2)  +2*P2*TOP(2) 
C       +2*POK*U*TOP(3)  +TU*TOS(3)/PK  +2*TOP(7)  -U*TOS(7)/P2  ) 

RPLG=EP*(  TO(3)  +2*TOP(4)  -U*TOS(4)/P2  +5*TO(5)  +2*P2*TOP(5) 
C        +2*PKU*TOP(6)  +TU*TOS(6)/POK  +TOS(7)/POK  ) 

RE=EP*(  TO(IO)  +4*TO(ll)  +2*P2*TOP(ll)  +TOS(12)/POK  +2*TOP(13) 
C      -U*TOS(13)/P2  +2*PKU*TOP(14)  +TU*TOS(14)/POK  ) 

RPL=EP*(  5*TE(1)  +2*P2*TEP(1)  +2*POK*U*TEP(2)  +TU*TES(2)/PK 
C       +2*TEP(5)  -U*TES(5)/P2   ) 

RSLN=EP*(  TES(4)/POK  +2*PKU*TEP(9)  +TU*TES(9)/POK  +TE(10) 
C        +4*TE(12)  +2*P2*TEP(12)  -TE(13)  +TE(14)  ) 

RSALP=EP*(2*TEP(4)  -U*TES(4)/P2  -5*TE(8)  -2*P2*TEP(8)  -TE(ll) 
C         -2*POK*U*TEP(13)  -TES(13)*TU/PK  ) 

RPLSN=EP*(    6*TE(6)     +2*P2*TEP(6)   +2*PKU*TEP(7)   +TU*TES(7)/POK 
C  +2*TEP(10)    -U*TES(10)/P2  +TES(ll)/POK  +2*TEP(14) 

C  -U*TES(14)/P2    ) 

C  LEFT  HAND  SIDE   OF  THE  EQUATION 

LGL=-(    3*F/P2  +5*U*FS/P2   -TU*FSS/P2  -8*FP  -4*P2*FPP 
C         -8*U*H0/P2     +4*TU*H0S/P2     +8*U*H0P 
C         -12*U*H1SP  +4*TU*H1SS/P2     +20*H1P 
C         +4*TU*H1SSP  +64*P2*H1PP     +16*P4*H1PPP  -8*U*H1S/P2 
C         +(18*U2-6)*H2S/P2     -14*U*TU*H2SS/P2     +2*TU*TU*H2SSS/P2 
C        +(16-28*U2)*H2SP  +4*U*TU*H2SSP  +48*P2*U*H2PP 
C         +16*U*P4*H2PPP     +8*P2*TU*H2SPP    )/PK 

LPP=(   9*F/P4     +23*U*FS/P4     -3*FSS/P4     +10*U2*FSS/P4 
C         -U*TU*FSSS/P4     -14*FP/P2     -18*U*FSP/P2     +2*TU*FSSP/P2 
C         +20*FPP  -4*U*FSPP  +8*P2*FPPP 

c         -64*U*H0/P4  +(30-86*U2)*H0S/P4     +26*U*TU*H0SS/P4 
C         -2*TU*TU*H0SSS/P4 

C         +64*U*HOP/P2     +(44*U2-16)*H0SP/P2     -4*U*TU*HOSSP/P2 
C         -32*U*HOPP  -8*TU*H0SPP  -16*P2*U*H0PPP 
C         +18*H1/P4     +46*U*H1S/P4     +(20*U2-6)*H1SS/P4 
c         -2*U*TU*H1SSS/P4     -28*H1P/P2     -36*U*H1SP/P2 
C         +4*TU*H1SSP/P2     +40*H1PP  -8*U*H1SPP     +16*P2*H1PPP)/PK 

LPLG=  -8*FS/P4     -7*U*FSS/P4     +8*FSP/R  +4*FSPP  +TU*FSSS/P4 
C  -8*H0/P4     -4*U*H0S/P4     +8*H0P/R  -28*U*H0SP/R 

C  +4*TU*H0SSP/R     +64*H0PP  +16*R*HOPPP 

C  +8*H1SP/R     -4*U*H1SS/P4     -8*H1S/P4 

C  +18*U*H2S/P4     +(10*U2-4*TU)*H2SS/P4     -2*U*TU*H2SSS/P4 

C  -28*U*H2SP/R     +48*H2PP      -8*U*H2SPP     +16*R*H2PPP 

C  +4*TU*H2SSP/R 

LE=-(8*H0/P4  +10*U*H0S/P4   -2*TU*H0SS/P4   -8*HOP/R  -8*H0PP 
C         +8*H1S/P4     +10*U*H1SS/P4      -2*TU*H1SSS/P4     -8*H1SP/R 
C  -8*H1SPP 
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C  +18*U*H2S/P4     +(10*U2-4*TU)*H2SS/P4     -2*U*TU*H2SSS/P4 

C  -28*U*H2SP/R     +48*H2PP     -8*U*H2SPP     +16*R*H2PPP 

C  +4*TU*H2SSP/R  ) 

LSLN=AKOP*(3*G0S/P2     +5*U*G0SS/P2  -TU*G0SSS/P2     -8*G0SP 
C  -4*P2*G0SPP 

C  -3*G2/P2     -5*U*G2S/P2     +TU*G2SS/P2     +8*G2P  +4*P2*G2PP 

C  -3*C/P2     -5*U*CS/P2     +TU*CSS/P2     -2*CP  +10*U*CSP 

C  -2*TU*CSSP     -28*P2*CPP  -8*P4*CPPP   ) 

LSALP=  9*U*G0S/P4     -(2-7*U2)*G0SS/P4     -U*TU*G0SSS/P4 
C  -14*U*G0SP/R     +2*TU*G0SSP/R     +24*G0PP  -4*U*G0SPP 

C  +8*R*G0PPP 

C  +4*G1/P4     +5*U*G1S/P4     -TU*G1SS/P4     -4*G1P/R     -4*G1PP 

LPLSN=   AKOP*(   9*G1S/P4  +7*U*G1SS/P4   -TU*G1SSS/P4  -4*G1SP/P2 
C     -4*G1SPP 

C     +9*G2/P4  +23*U*G2S/P4  -(3.D0-10*U2)*G2SS/P4     -U*TU*G2SSS/P4 
C     -14*G2P/P2     -18*U*G2SP/P2     +2*TU*G2SSP/P2     +20*G2PP 
C     -4*U*G2SPP     +8*P2*G2PPP 

C     +9*C/P4     +23*U*CS/P4     -(3.D0-10*U2)*CSS/P4     -TU*U*CSSS/P4 
C     -14*CP/P2     -18*U*CSP/P2     +2*TU*CSSP/P2     +20*CPP 
C     -4*U*CSPP  +8*P2*CPPP   ) 

LPL=  9*U*G0S/P4  -(2.D0-7*U2)*G0SS/P4  -U*TU*G0SSS/P4 
C  -14*U*G0SP/R  +2*TU*G0SSP/R  +24*G0PP  -4*U*G0SPP 
C         +8*R*G0PPP 

C         -12*G1/P4     -15*U*G1S/P4  +3*TU*G1SS/P4     +12*G1P/R 
C         -10*U*G1SP/R     +2*TU*G1SSP/R  +36*G1PP     +8*R*G1PPP 
C         +9*U*G2/P4     -(8.D0-23*U2)*G2S/P4     -10*U*TU*G2SS/P4 
C         +TU*TU*G2SSS/P4     -14*U*G2P/R     +(8.D0-18*U2)*G2SP/R 
C         +2*U*TU*G2SSP/R     +20*U*G2PP     +4*TU*G2SPP     +8*R*U*G2PPP 
C  EROR   IS   THE   SQUARE   OF  THE   DIFFERENCES   OF  THE   LEFT   AND  RIGHT  SIDES   OF 
C  THE   EIGHT  EQUATIONS. 

E(1)=2.0*DABS((LPL-RPL)/(LPL+RPL)) 

E(2)=2.0*DABS((LSALP-RSALP)/(LSALP+RSALP)) 

E(3)=2.0*DABS((LSLN-RSLN)/(LSLNfRSLN)) 

E(4)=2.0*DABS((LPLSN-RPLSN)/(LPLSN+RPLSN)) 

E(5)=2.0*DABS((LPP-RPP)/(LPP+RPP)) 

E(6)=2.0*DABS((LGL-RGL)/(LGL+RGL)) 

E(7)=2.0*DABS((LPLG-RPLG)/(LPLG+RPLG)) 

E(8)=2.0*DABS((LE-RE)/(LE+RE)) 

IOUT=l 

IF(IOUT.NE.l)    GO  TO  98 

IOUT=0 

IF(  IOUT.EQ.l)WRITE(6,777)    (E( IN) , IN=1 ,8) 
777    FORMAT  ('    THE   LEFT  MINUS  RIGHT' ,4D20.7) 
C  WRITE   (6,666)    LPL,LSALP,LSLN,LPLSN 

C  WRITE   (6,667)    RPL.RSALP.RSLN.RPLSN 

C  WRITE   (6,666)    LPP,LGL,LPLG,LE 

C  WRITE   (6,667)   RPP,RGL,RPLG,RE 

666  FORMAT(*    LEFT    '.4D14.5) 

667  FORMATC    RIGHT'  .4D14.5) 
ALHSV1=LPP 
RHSV1=RPP 
ALHSV2=LPLG 
RHSV2=RPLG 
ALHSV3=LGL 
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RHSV3=RGL 
ALHSV4=LE 
RHSV4=RE 
ALHSW1=LPLSN 
RHSW1=RPLSN 
ALHSW2=LSALP 
RHSW2=-RSALP 
ALHSW3=LSLN 
RHSW3=RSLN 
ALHSW4=LPL 
RHSW4=RPL 

RATV1=DABS((RHSV1-ALHSV1)/ALHSV1)*100.D0 
RATV2=DABS( (RHSV2- ALHSV2 ) / ALHSV2 ) * 1 00 . DO 
RATV3=DABS( (RHSV3-ALHSV3 ) / ALHSV3) *1 00. DO 
RATV4=DABS ( ( RHSV4- ALHSV4 ) / ALHSV4 ) * 100 . DO 
RATW1=DABS((RHSW1-ALHSW1)/ALHSW1)*100.D0 
RATW2=DABS((RHSW2-ALHSW2)/ALHSW2)*100.D0 
R  ATW3=DABS ( ( RHSW3- ALHSW3 ) / ALHSW3 ) * 1 00 . DO 
RATW4=DABS( ( ALHSW4-RHS W4 ) / ALHSW4 ) * 1 00 . DO 
WRITE(6,987)ALHSV1,RHSV1,RATV1 
WRITE( 6 ,20) ALHSV2 .RHSV2 ,RATV2 
WRITE( 6 , 30 ) ALHSV3 , RHSV3 , RATV3 
WRITE( 6 ,40 )  ALHSV4 ,RHSV4 ,RATV4 
WRITE(6,50)ALHSW1 ,RHSW1 ,RATW1 
WR ITE ( 6 , 60 )  ALHSW2 , RHSW2 , RATW2 
WRITE( 6 ,70) ALHSW3 .RHSW3 ,RATW3 
WRITE( 6 ,80)  ALHSW4 .RHSW4 ,RATW4 
IF(  IX.EQ.2)WRITE(4 ,987) ALHSV1 ,RHSV1 .RATV1 
IF(IX.EQ.2)WRITE(4,20)ALHSV2,RHSV2,RATV2 
IF(IX.EQ.2)WRITE(4,30)ALHSV3,RHSV3,RATV3 
IF(IX.EQ.2)WRITE(4,40)ALHSV4,RHSV4,RATV4 
IF(  IX.EQ.2)WRITE(4,50) ALHSW1 ,RHSW1 ,RATW1 
I  F(  IX . EQ . 2 ) WR ITE ( 4 , 60 ) ALHS W2 , RHS W2 , R ATW2 
IF(IX.EQ.2)WRITE(4,70)ALHSW3,RHSW3,RATW3 
IF(  IX.EQ.2)WRITE(4 ,80) ALHSW4 ,RHSW4 ,RATW4 
987    FORMATUX.'EQ.l.LEFT-'.EU.S.lX.'RIGHT-'.En.S.lX, 
CIERR0R=,,F6.2,I%') 

20    F0RMAT(1X,,EQ.2,LEFT='  .E12.5.1X, 'RIGHT=' ,E12.5,1X, 
C,ERR0R=,,F6.2,,%') 

30    FORMATCIX.'EQ.S.LEFT^' ,E12.5,1X, 'RIGHT=' ,E12.5,1X, 
C'ERR0R='  ,F6.2,'%') 

40    F0RMAT(1X,*EQ.4,LEF]>'  ,E12.5,  IX,  'RIGHT='  .E12.5.1X, 
C'ERR0R=',F6.2,,%'/) 

50    F0RMAT(1X,,EQ.5,LEFI>, .E12.5.1X, 'RIGHT=' .E12.5.1X, 
C,ERR0R=,,F6.2,,%,) 

60    F0RMAT(1X,,EQ.6,LEFT='  ,E12.5,1X, 'RIGHT"'  .E12.5.1X, 
C'ERR0R='  ,F6.2,'%') 

70    F0RMAT(1X,'EQ.7,LEFT=* .E12.5.1X, 'RIGHT=' ,E12.5,1X, 
C'ERR0R=' ,F6.2,'%') 

80    P0RMAT(1X,'EQ.8,LEFT=',E12.5,1X,'RIGHT=,,E12.5,1X, 

C*ERR0R=' ,F6.2,'%') 
IF(IX.EQ.2)WRITE    (4,793)    A, AP, APP.B.BP 
793    FORMAT   ('    A, AP, APP.B.BP' .3D15.7/2D15.7) 
98    CONTINUE 
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DIFP=0.0 

DO  99    IN-1,8 

DIFF=DIFF+E(  IN) 
99    CONTINUE 

IF(IOUT.EQ.l)    WRITE    (6,400)    I,J,DIFF 
400    FORMATC    THE   SUM  OF  THE    DIFFERENCES    AT    ' ,2I3,D16.6) 

EROR(I,J)=DIFF 
10    CONTINUE 

FTBM=0.0 

DO  717    IN-l.LIM 

DO  717   JN=l,LOT 
717      FTBM=FTBM+EROR(IN,JN) 

RETURN 

END 
C  THE    FOLLOWING   SUBROUTINES   DEFINE   THE   TENSORS   WHICH   DEFINE   THE 
C  RIGHT  HAND  SIDE   OF  THE  EQUATIONS. 

SUBROUTINE   TT(P2,K2,U, I, J) 

IMPLICIT  REAL*8    (A-H.O-Z) 

REAL*8   MPD,MPDP,MPDU,K2 

COMMON/SIGNPK/SIGN 

COMM0N/SUBTT/TE(14),TES(14),TEP(l4),AOUT,APOUT,APP,BOUT,BPOUT, 

C  T0(14),T0S(14),T0P(14) 

COMMON/ TWS/W1,W2,W3,W4,W5,W6,W7,W8,W9,W10,W11,W12,W13,W14 
C   ,W1P,W2P,W3P,W4P,W5P,W6P,W7P,W8P,W9P,W10P,W11P,W12P,W13P,W14P 
C   ,W1U,W2U,W3U,W4U,W5U,W6U,W7U,W8U,W9U,W10U,W11U,W12U,W13U,W14U 

COMMON/TVS/V1 ,V2 ,V3 ,V4 ,V5 ,V6 ,V7 ,V8 ,V9 ,V10 ,V1 1 ,V12 ,V13 ,V14 
C   ,V1P,V2P,V3P,V4P,V5P,V6P,V7P,V8P,V9P,V10P,V11P,V12P,V13P,V14P 
C   ,V1U,V2U,V3U,V4U,V5U,V6U,V7U,V8U,V9U,V10U,V11U,V12U,V13U,V14U 

COMMON/  FUNS/XF(  8  ,10,1,1) 
C  THIS   SUBROUTINE  GENERATES   THE    FUNCTIONS   TE   AND  TO    FOR  THE   R.H.S.    OF  THE   EQUATI 

T1=1.D0 

T2=2.D0 

T3=3.D0 

T4-4.D0 

T5=5.D0 

T6=6.D0 

F=XF(1,1,I,J) 

FP=XF(1,2,I,J) 

FPP=XF(1,3,I,J) 

FS=XF(1,5,I,J) 

FSS=XF(1,6,I,J) 

FSP=XF(1,8,I,J) 

G0=XF(2,1,I,J) 

G0P=XF(2,2,I,J) 

G0PP=XF(2,3,I,J) 

G0S=XF(2,5,I,J) 

G0SS=XF(2,6,I,J) 

G0SP=XF(2,8,I,J) 

G1=XF(3,1,I,J) 

G1P=XF(3,2,I,J) 

G1PP=XF(3,3,I,J) 

G1S=XF(3,5,I,J) 

G1SS=XF(3,6,I,J) 

G1SP=XF(3,8,I,J) 
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G2=XF(4,1,I,J) 

G2P=XF(4,2,I,J) 

G2PP=XF(4,3,I,J) 

G2S=XF(4,5,I,J) 

G2SS=XF(4,6,I,J) 

G2SP=XF(4,8,I,J) 

H0=XF(5,1,I,J) 

H0P=XF(5,2,I,J) 

H0PP=XF(5,3,I,J) 

H0S=XF(5,5,I,J) 

H0SS=XF(5,6,I,J) 

H0SP=XF<5,8,I,J) 

H1=XF(6,1,I,J) 

H1P=XF(6,2,I,J) 

H1PP=XF(6,3,I,J) 

H1S=XF(6,5,I,J) 

H1SS=XF(6,6,I,J) 

H1SP=XF(6,8,I,J) 

H2=XF(7,1,I,J) 

H2P=XF(7,2,I,J) 

H2PP=XF(7,3,I,J) 

H2S=XF(7,5,I,J) 

H2SS=XF(7,6,I,J) 

H2SP=XF(7,8,I,J) 

C=XF(8,1,I,J) 

CP=XF(8,2,I,J) 

CPP=XF(8,3,I,J) 

CS=XF(8,5,I,J) 

CSS=XF(8,6,I,J) 

CSP=XF(8,8,I,J) 

IKI-0 

IF(IKI.EQ.l) WRITE   (6,100)    F,  FP,  FS.G0.G0P, 
C  G0S,G1,G1P,G1S,G2, 

C  G2P,G2S,H0,H0P,H0S,H1,H1P,H1S,H2,H2P,H2S,C,CP,CS>P2,U 
100   FORMAT  ('    F,G,H,C,AS   SEEN  IN  TT' /5D14.5/5D14.5/5D14.5/ 
C  5D14.5/4D14.5/1    P2.U   IN  TT' ,2D18.8) 

PK=SIGN*DSQRT(P2*K2) 

P4=P2*P2 

P0K=-DSQRT(P2/K2) 

AK0P=T1/P0K 

P12=P2+K2+2*PK*U 

DU=T2*PK 

DP=T1+AK0P*U 

U2=U*U 

P4=P2*P2 

P6=P2*P4 

TU=1-U2 

A1=XA(P12) 

A2=XA(P2) 

DFF=100*DABS((A2-A1)/A2) 

WRITE(6,456)    Al , A2.DFF.P12 ,P2 

WRITE(4,456)    Al , A2 ,DFF,P12,P2 
456    FORMATC    Al    AND  A2,,3D15.7,'    %DIFF'/'    PI    SQ    AND  P2    SQ*  .2D15.7) 

B1=XB(P12) 
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B2=XB(P2) 

AP=XAP(P2) 

BP=XBP(P2) 

A1P=XAP(P12)*DP 

A1U=XAP(P12)*DU 

A2P=AP 

A0UT=A2 

B0UT=B2 

APOUT-AP 

BPOUT=BP 

D1=A1*A1-P12*B1*B1 

D2=A2*A2-P2*B2*B2 

AD=A1/D1 

BD=B1/D1 

MPD=AP*B2/D2   -BP*A2/D2 

PPD=AP*A2/D2   -P2*BP*B2/D2 

BBD=B2*B2/D2 

ABD=A2*B2/D2 

APP=XAPP(P2) 

D1P=T2*A1*A1P-DP*B1*B1 

D1U=T2*A1*A1U  -DU*B1*B1 

D2P=T2*A2*A2P-B2*B2 

ADP=A1P/D1   -A1*D1P/D1**2 

ADU=A1U/D1   -A1*D1U/D1**2 

AZ1  =  A1U/D1 

AZ2=A1*D1U/D1**2 

BDP=-B1*D1P/D1**2 

BDU=-B1*D1U/D1**2 

MPDP=APP*B2/D2   -AP*B2*D2P/D2**2 

PPDP=APP*A2/D2  +AP*A2P/D2  -AP*A2*D2P/D2**2 

BBDP=-B2*B2*D2P/D2**2 

ABDP=A2P*B2/D2  -A2*B2*D2P/D2**2 

ZE1=(-F/P2  +2*FP      -U*FS/P2   -2*PPD*F  +F*BBD)/PK 
C  +2*MPD*G0       +2*G1*MPD  -G1*ABD/P2 

C  +2*U*G2*MPD       +2*U*H0*BBD/PK  -2*H1*BBD/PK 

ZE1P=(-FP/P2  +2*FPP  -U*FSP/P2   -2*PPD*FP  +FP*BBD)/PK 
C  +2*MPD*G0P       +2*G1P*MPD  -G1P*ABD/P2 

C  +2*U*G2P*MPD       +2*U*H0P*BBD/PK  -2*H1P*BBD/PK  + 

C  (1.5DO*F/P4  -FP/P2  +1.5DO*U*FS/P4  +PPD*F/P2  -0.5D0*F*BBD/P2)/PK 
C  +G1*ABD/P4   -U*H0*BBD/(PK*P2)   +H1*BBD/(PK*P2) 
C  -2*PPDP*F/PK  +F*BBDP/PK  +2*MPDP*GO  +2*G1*MPDP   -G1*ABDP/P2 
C  +2*U*G2*MPDP  +2*U*H0*BBDP/PK  -2*H1*BBDP/PK 

ZE1U=(-FS/P2  +2*FSP   -U*FSS/P2   -2*PPD*FS  +FS*BBD)/PK 
C         +2*MPD*G0S  +2*G1S*MPD  -G1S*ABD/P2 
C  +2*U*G2S*MPD  +2*U*H0S*BBD/PK  -2*H1S*BBD/PK 

C  -FS/(P2*PK)   +2*G2*MPD  +2*H0*BBD/PK 

ZE2=(    FS/P2      -G2*ABD/POK     -2*H0*BBD     -2*H2*BBD      ) 

ZE2P=FSP/P2   -G2P*ABD/POK  -2*H0P*BBD  -2*H2P*BBD 
C  -FS/P4  +O.5D0*G2*ABD/(P2*POK) 

C  -G2*ABDP/POK  -2*H0*BBDP   -2*H2*BBDP 

ZE2U=FSS/P2   -G2S*ABD/POK  -2*H0S*BBD  -2*H2S*BBD 

ZE3=(    C*ABD/POK  +2*H2*BBD   ) 

ZE3P=CP*ABD/POK  +2*H2P*BBD  -0.5D0*C*ABD/(POK*P2) 
C  +C*ABDP/POK  +2*H2*BBDP 
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ZE3U=CS*ABD/P0K  +2*H2S*BBD 

ZE4=(    -GO*ABD  +2*Hl/PK  +2*P0K*H1*BBD  +2*POK*U*H2*BBD  ) 

ZE4P=-G0P*ABD  +2*H1P/PK  +2*P0K*H1P*BBD  +2*P0K*U*H2P*BBD 
C     -H1/(PK*P2)    +H1*BBD/PK  +U*H2*BBD/PK 
C     -GO*ABDP  +2*P0K*H1*BBDP  +2*POK*U*H2*BBDP 

ZE4U=-G0S*ABD  +2*H1S/PK  +2*P0K*H1S*BBD  +2*POK*U*H2S*BBD 
C     +2*P0K*H2*BBD 

ZE5=(    F/PK     -GO*ABD     +2*H1*P0K*BBD  +2*P0K*U*H2*BBD   ) 

ZE5P=FP/PK  -GOP*ABD  +2*H1P*P0K*BBD  +2*POK*U*H2P*BBD 
C  -0.5D0*F/(P2*PK)   +H1*BBD/PK  +U*H2*BBD/PK 
C  -GO*ABDP  +2*H1*P0K*BBDP  +2*POK*U*H2*BBDP 

ZE5U=FS/PK  -GOS*ABD  +2*H1S*P0K*BBD  +2*P0K*U*H2S*BBD 
C         +2*POK*H2*BBD 

ZE6=(-2*G2*MPD/POK  -4*H0/P4  +4*H0P/P2  -2*U*H0S/P4 
C  -4*H0*PPD/P2  +2*C*MPD/P0K  ) 

ZE6P=-2*G2P*MPD/POK  -4*H0P/P4  +4*H0PP/P2  -2*U*H0SP/P4 
C  -4*H0P*PPD/P2  +2*CP*MPD/P0K 

C  +G2*MPD/(P0K*P2)   +8*H0/P6  -4*H0P/P4  +4*U*H0S/P6 
C  +4*H0*PPD/P4  -C*MPD/(P0K*P2) 
C  -2*G2*MPDP/POK  -4*H0*PPDP/P2   +2*C*MPDP/P0K 

ZE6U=-2*G2S*MPD/POK  -4*H0S/P4  +4*H0SP/P2  -2*U*H0SS/P4 
C  -4*H0S*PPD/P2  +2*CS*MPD/P0K  -2*H0S/P4 

ZE7=(      2*H0S/(P2*PK)      ) 

ZE7P=2*H0SP/(P2*PK)    -3*H0S/(P4*PK) 

ZE7U=2*H0SS/(P2*PK) 

ZE8=(-2*G0*MPD     +2*H1/(P2*PK)    -4*H1P/PK  +2*U*H1S/(P2*PK) 
C  +4*H1*PPD/PK  -2*U*C*MPD     ) 

ZE8P=-2*G0P*MPD  +2*H1P/(P2*PK)    -4*H1PP/PK  +2*U*H1SP/(P2*PK) 
C     +4*H1P*PPD/PK  -2*U*CP*MPD 

C     -3*H1/(P4*PK)   +2*H1P/(P2*PK)   -3*U*H1S/(P4*PK) 
C     -2*H1*PPD/(P2*PK) 
c     -2*G0*MPDP  +4*H1*PPDP/PK  -2*U*C*MPDP 

ZE8U=-2*G0S*MPD  +2*H1S/(P2*PK)   -4*H1SP/PK  +2*U*H1SS/(P2*PK) 
C     +4*H1S*PPD/PK  -2*U*CS*MPD  +2*H1S/(P2*PK)    -2*C*MPD 

ZE9=(    2*H2S/PK  ) 

ZE9P=2*H2SP/PK  -H2S/(P2*PK) 

ZE9U=2*H2SS/PK 

ZE10=(    G2*ABD/P0K  +2*H0/P2  +2*H0*BBD     +2*H2*BBD   ) 

ZE10P=G2P*ABD/POK  +2*H0P/P2  +2*H0P*BBD  +2*H2P*BBD 
C     -0.5D0*G2*ABD/(P2*POK)   -2*H0/P4     -K;2*ABDP/P0K  +2*H0*BBDP 
C       +2*H2*BBDP 

ZE10U=G2S*ABD/POK  +2*H0S/P2  +2*H0S*BBD  +2*H2S*BBD 

ZE11=(    F*BBD/PK  -G1*ABD/P2  +2*U*H0*BBD/PK  -2*H1*BBD/PK) 

ZE11P«*FP*BBD/PK  -G1P*ABD/P2  +2*U*H0P*BBD/PK  -2*H1P*BBD/PK 
C     -0.5D0*F*BBD/(P2*PK)   +G1*ABD/P4 
C       -U*H0*BBD/(P2*PK)    +H1*BBD/(P2*PK) 
C     +F*BBDP/PK  -G1*ABDP/P2  +2*U*H0*BBDP/PK  -2*H1*BBDP/PK 

ZE11U=FS*BBD/PK  -G1S*ABD/P2  +2*U*H0S*BBD/PK  -2*H1S*BBD/PK 
C     +2*H0*BBD/PK 

ZE12=(    4*H2P   -2*U*H2S/P2   -4*H2*PPD  +2*H2*BBD 
C  -2*PK*C*MPD     +C*ABD/POK      ) 

ZE12P=4*H2PP   -2*U*H2SP/P2   -4*H2P*PPD  +2*H2P*BBD 
C     -2*PK*CP*MPD  +CP*ABD/POK 
C     +2*U*H2S/P4   -C*MPD/POK  -0.5D0*C*ABD/(P2*POK) 
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C     -4*H2*PPDP  +2*H2*BBDP   -2*PK*C*MPDP  +C*ABDP/POK 

ZE12U=»4*H2SP  -2*U*H2SS/P2  -4*H2S*PPD  +2*H2S*BBD  -2*PK*CS*MPD 
C     +CS*ABD/POK  -2*H2S/P2 

ZE13=(    -2*H1S/P2  +2*H2*BBD  +  C*ABD/POK    ) 

ZE13P=-2*H1SP/P2   +2*H2P*BBD  +CP*ABD/POK  +2*H1S/P4   -0.5D0*C*ABD 
C     /(P2*P0K)   +2*H2*BBDP  +C*ABDP/POK 

ZE13U=-2*H1SS/P2  +2*H2S*BBD  +CS*ABD/POK 

ZE14="(    2*H0/P2   -2*H2*BBD  -C*ABD/POK   ) 

ZE14P=2*H0P/P2   -2*H2P*BBD  -CP*ABD/POK  -2*H0/P4 
C  +0.5D0*C*ABD/(P2*POK) 
C     -2*H2*BBDP   -C*ABDP/POK 

ZE14U=2*H0S/P2  -2*H2S*BBD  -CS*ABD/POK 

Zl»    (-GO*BBD  +G1/P2  +2*H1*ABD/PK  -U*C*BBD   ) 

Z1P=-G0P*BBD  +G1P/P2  +2*H1P*ABD/PK  -U*CP*BBD 
C     -G1/P4   -H1*ABD/(P2*PK)    -GO*BBDP  +2*H1*ABDP/PK  -U*C*BBDP 

Z1U=-G0S*BBD  +G1S/P2  +2*H1S*ABD/PK  -U*CS*BBD  -C*BBD 

Z2=   (    2*f*MPD/PK  -2*G1/P4  +2*G1P/P2  -U*G1S/P4 
C  -2*G1*PPD/P2     +4*U*H0*MPD/PK  -4*H1*MPD/PK   ) 

Z2P=2*FP*MPD/PK  -2*G1P/P4  +2*G1PP/P2  -U*G1SP/P4 
C  -2*G1P*PPD/P2  +4*U*H0P*MPD/PK  -4*H1P*MPD/PK 
C     -F*MPD/(P2*PK)   +4*G1/P6  -2*G1P/P4  +2*U*G1S/P6 
C     +2*G1*PPD/P4  -2*U*H0*MPD/(P2*PK)   +2*H1*MPD/(P2*PK) 
C     +2*F*MPDP/PK  -2*G1*PPDP/P2  +4*U*H0*MPDP/PK  -4*H1*MPDP/PK 

Z2U=2*FS*MPD/PK  -2*G1S/P4  +2*G1SP/P2  -U*G1SS/P4 
C     -2*G1S*PPD/P2  +4*U*H0S*MPD/PK  -4*H1S*MPD/PK 
C     -G1S/P4  +4*H0*MPD/PK 

Z3=    (    G1S/(P2*P0K)    -G2*BBD/P0K  -2*H0*ABD/P2  +C*BBD/POK   ) 

Z3P=G1SP/(P2*P0K)    -G2P*BBD/P0K  -2*H0P*ABD/P2   +CP*BBD/POK 
C-1.5D0*G1S/(P4*P0K)  +0.5DO*G2*BBD/(P2*POK) 
C       +2*H0*ABD/P4   -0.5D0*C*BBD/(P2*POK) 
C       -G2*BBDP/P0K  -2*H0*ABDP/P2  +C*BBDP/POK 

Z3U=G1SS/(P2*P0K)    -G2S*BBD/P0K  -2*H0S*ABD/P2   +CS*BBD/POK 

Z4=(    G2/P0K  +2*H2*ABD  +PK*C*BBD   ) 

Z4P=G2P/POK  +2*H2P*ABD  +PK*CP*BBD  -0.5D0*G2/(P2*POK) 
C       +0.5D0*C*BBD/POK 
C     +2*H2*ABDP  +PK*G*BBDP 

Z4U=G2S/POK  +2*H2S*ABD  +PK*CS*BBD 

Z5=   (-G2/(P2*POK)   -U*G2S/(P2*POK)   -KJ2*BBD/P0K  +2*G2P/POK 
C  -2*G2*PPD/POK  +2*H0*ABD/P2  -4*H0*MPD  -4*H2*MPD 

C  -C*BBD/POK   ) 

Z5P=-G2P/(P2*POK)   -U*G2SP/(P2*P0K)   +G2P*BBD/P0K 
C       +2*G2PP/POK  -2*G2P*PPD/POK 

C     +2*H0P*ABD/P2   -4*H0P*MPD  -4*H2P*MPD  -CP*BBD/POK 
C     +1.5D0*G2/(P4*POK)   +1.5D0*U*G2S/(P4*POK) 
C       -0.5DO*G2*BBD/(P2*POK)    -G2P/(P2*POK) 
C     +G2*PPD/(P2*P0K)    -2*H0*ABD/P4  +0.5D0*  C*BBD/(P2*P0K) 
C     +G2*BBDP/P0K  -2*G2*PPDP/POK  +2*H0*ABDP/P2   -4*H0*MPDP 
C     -4*H2*MPDP   -C*BBDP/POK 

Z5U=-G2S/(P2*POK)    -U*G2SS/(P2*P0K)   +G2S*BBD/P0K  +2*G2SP/P0K 
C     -2*G2S*PPD/POK  +2*H0S*ABD/P2   -4*H0S*IffD  -4*H2S*MPD 
C       -CS*BBD/POK 
C     -G2S/(P2*POK) 

Z6=    (G2S/P2) 

Z6P=G2SP/P2  -G2S/P4 
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Z6U=G2SS/P2 

Z7=    (-F*ABD/PK  4€0*BBD  +G1/P2   +G1*BBD  +U*G2*BBD) 

Z7P=-FP*ABD/PK  +GOP*BBD  +G1P/P2   +G1P*BBD  +U*G2P*BBD 
C  +0.5DO*F*ABD/(P2*PK)    -G1/P4      -F*ABDP/PK  +GO*BBDP 
C  +G1*BBDP  +U*G2*BBDP 

Z7U=-FS*ABD/PK  +GOS*BBD  +G1S/P2   +G1S*BBD  +U*G2S*BBD 
C       +G2*BBD 

Z8=(2*G0P   -U*G0S/P2   -2*G0*PPD  +GO*BBD  +4*P0K*H1*MPD 
C  -2*H1*ABD/PK  +4*H2*POK*U*MPD  +U*C*BBD    ) 

Z8P=2*G0PP   -U*G0SP/P2   -2*G0P*PPD  +GOP*BBD  +4*P0K*H1P*MPD 
C     -2*H1P*ABD/PK  +4*H2P*POK*U*MPD  +U*CP*BBD 
C  +U*G0S/P4  +2*H1*MPD/PK  +H1*ABD/(P2*PK)   +2*H2*U*MPD/PK 
C  -2*G0*PPDP  +GO*BBDP  +4*P0K*H1*MPDP  -2*H1*ABDP/PK 
C  +4*H2*POK*U*MPDP  +U*C*BBDP 

Z8U=2*G0SP   -U*G0SS/P2   -2*G0S*PPD  +GOS*BBD  +4*P0K*H1S*MPD 
C  -2*H1S*ABD/PK  +4*H2S*POK*U*MPD  +U*CS*BBD 
C  -G0S/P2  +4*P0K*H2*MPD  +C*BBD 

Z9=    (GOS/POK  -2*H2*ABD  -PK*C*BBD   ) 

Z9P=G0SP/POK  -2*H2P*ABD  -PK*CP*BBD 
C         -0.5DO*GOS/(P2*POK)    -0.5DO*C*BBD/POK 
C     -2*H2*ABDP   -PK*C*BBDP 

Z9U=G0SS/POK  -2*H2S*ABD  -PK*CS*BBD 

Z10=(-G2*BBD/POK  -2*HO*ABD/P2     +C*BBD/POK   ) 

Z10P=-G2P*BBD/POK  -2*HOP*ABD/P2  +  CP*BBD/POK 
C     +0.5DO*G2*BBD/(P2*POK)    +2*H0*ABD/P4   -0.5DO*C*BBD/(P2*POK) 
C     -G2*BBDP/POK  -2*H0*ABDP/P2   +  C*BBDP/POK 

Z10U=-G2S*BBD/POK   -2*H0S* ABD/P2   +  CS*BBD/POK 

Zll  =  (    -4*H2*MPD  -C/(P2*POK)   +2*CP/POK  -U*CS/(P2*POK) 
C  -2*C*PPD/POK      ) 

Z11P=-4*H2P*MPD  -CP/(P2*POK)    +2*CPP/POK  -U*CSP/(P2*POK) 
C     -2*CP*PPD/POK  +1.5DO*C/(P4*POK)    -CP/(P2*POK) 
C       +1.5DO*U*CS/(P4*POK) 
C     +  C*PPD/(P2*POK)    -4*H2*MPDP   -2*C*PPDP/POK 

Z11U=-4*H2S*MPD  -CS/(P2*POK)    +2*CSP/POK  -U*CSS/(P2*POK) 
C       -2*CS*PPD/POK 
C     -CS/(P2*POK) 

Z12=(    GO*BBD  -2*H1*ABD/PK  +U*C*BBD    ) 

Z12P=GOP*BBD  -2*H1P*ABD/PK  +U*CP*BBD  +H1*ABD/ (P2*PK) 
C     +GO*BBDP   -2*H1*ABDP/PK  +U*C*BBDP 

Z12U=GOS*BBD  -2*H1S*ABD/PK  +U*CS*BBD  +C*BBD 

Z14=(CS/P2    ) 

Z14P=CSP/P2   -CS/P4 

Z14U=CSS/P2 

Z13=(2*H2*ABD  +C/POK  +PK*C*BBD    ) 

Z13P=2*H2P*ABD  +CP/POK  +PK*CP*BBD  -0.5DO* C/ (P2*POK) 
C       +0.5DO*C*BBD/POK 
C     +2*H2*ABDP   +PK*C*BBDP 

Z13U=2*H2S*ABD  +CS/POK  +PK*CS*BBD 

V1  =  AD*Z1        +BD*(-ZE5   +P0K*U*ZE14   +ZE14) 

V1P=AD*Z1P   +ADP*Z1    +BDP*(-ZE5   +P0K*U*ZE14   +ZE14) 
C  +BD*(-ZE5P  +POK*U*ZE14P  +  ZE14P  +0.5DO*U*  ZE14/PK) 

V1U=AD*Z1U+ADU*Z1 
C     +BD*(-ZE5U  +P0K*ZE14    +POK.*U*  ZE14U   +ZE14U) 
C     +BDU*(-ZE5  +P0K*U*ZE14    +ZE14) 
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V2=AB*Z2      +BD*(-ZE1    +POK*U*ZE6   +  ZE8    +  ZE1  1    +ZE6    ) 

V2P=ADP*Z2   +  Z2P*AD  +BD*(-ZE1P  +0. 5D0*U*  ZE6/PK  +POK*U*ZE6P 
C  +ZE8P+ZE11P  +  ZE6P    )   +BDP*(-ZE1+P0K*U*ZE6+ZE8+ZE1 1   +ZE6) 

V2U=ADU*Z2    +AD*Z2U  +BDU*(-ZE1+P0K*U*ZE6+ZE8+ZE1 1  +  ZE6) 
C  +BD*(-ZE1U+P0K*ZE6+P0K*U*ZE6U+ZE8U+ZE11U+ZE6U) 

V3=AD*Z3     +BD*(-ZE2   +PK*U*ZE7   +ZE13  +K2*ZE7   +K2*ZE11    ) 

V3P=AD*Z3P+ADP*Z3   +BDP*(-ZE2  +PK*U*ZE7   +  ZE13   +K2*ZE7    +K2*ZE11    ) 
C  +BD*(-ZE2P+PK*U*ZE7P  +0.5DO*U*ZE7/POK  +  ZE13P 
C       +K2*ZE7P+K2*ZE11P) 

V3U=ADU*Z3+AD*Z3U  +BDU*(-ZE2   +PK*U*ZE7   +  ZE13  +K2*ZE7   +K2*ZE11    ) 
C     +BD*(-ZE2U+PK*ZE7+PK*U*ZE7U+ZE13U  +K2*ZE7U  +K2*ZE11U) 

V4=AD*Z4     +BD*(-P2*ZE14   -K2*ZE5   -PK*U*ZE14    ) 

V4P=ADP*Z4+Z4P*AD  +BDP*(-P2*ZE14   -K2*ZE5   -PK*U*ZE14    ) 
c  +BD*(-P2*ZE14P   -ZE14   -K2*ZE5P   -0.5D0*U*ZE14/POK  -PK*U*ZE14P) 

V4U=ADU*Z4+Z4U*AD  +BDU*(-P2*ZE14   -K2*ZE5   -PK*U*ZE14) 
C     +BD*(-P2*ZE14U-K2*ZE5U  -PK*ZE14   -PK*U*ZE14U) 

V5=AD*Z5  +BD*(-P2*ZE6   -ZE10   -ZE12   -K2*ZE1    -PK*U*ZE6    ) 

V5P=ADP*Z5+Z5P*AD+-BDP*(-P2*ZE6   -ZE10   -ZE12   -K2*ZE1    -PK*U*ZE6) 
C  +BD*(-ZE6-P2*ZE6P-ZE10P-ZE12P-K2*ZE1P-PK*U*ZE6P 
C       -U*0.5D0*ZE6/POK   ) 

V5U=ADU*Z5+Z5U*ADfBDU*(-P2*ZE6   -ZE10   -ZE12   -K2*ZE1    -PK*U*ZE6) 
C     +BD*(-P2*ZE6U-ZE10U-ZE12U-K2*ZE1U-PK*ZE6   -PK*U*ZE6U) 

V6=AD*Z6  +BD*(-(P2+PK*U)*ZE7    -ZE9   -ZE2   -ZE10    ) 

V6P=ADP*Z6+Z6P*ATH-BDP*(-(P2+PK*U)*ZE7    -ZE9    -ZE2   -ZE10    ) 
C  +BD*(    -ZE7    -U*0.5DO*ZE7/POK  -(P2+PK*U)*ZE7P   -ZE9P   -ZE2P 
C  -ZE10P    ) 

V6U=AD*Z6U+ADU*Z6+BDU*(-(P2+PK*U)*ZE7    -ZE9    -ZE2    -ZE10    ) 
C  +BD*(-PK*ZE7   -(P2+PK*U)*ZE7U  -ZE9U   -ZE2U-ZE10U) 

V7  =  AD*Z7   +BD*(-ZE4  +POK*U*ZE10  -(P2+PK*U)*ZE1 1   +ZE10    ) 

V7U=ADU*Z7+AD*Z7U  +BDU*(-ZE4  +POK*U*ZE10 
C       -(P2+PK*U)*ZE11   +ZE10) 
C     +BD*(-ZE4U  +POK*ZE10  +P0K*U*ZE10U 
C        -PK*ZE11    -(P2+PK*U)*ZE11U 
C     +ZE10U) 

V7P=AD*Z7P+ADP*Z7   +BDP*(-ZE4   +P0K*U*ZE10  -(P2+PK*U)*ZE1 1 
C        +ZE10    ) 

C     +BD*(-ZE4P+0.5D0*U*ZE10/PK  +POK*U*ZE10P   -(P2+PK*U)*ZE1  IP 
C     -ZE11    -0.5D0*U*ZE11/P0K  +ZE10P    ) 

V8=AD*Z8  +BD*(    ZE4-(P2+PK*U)*ZE8   +(1.D0  +P0K*U)*ZE12    ) 

V8P=ADP*Z8+AD*Z8P  +BDP*(    ZE4-(P2+PK*U)*ZE8 
C     +(1.D0+P0K*U)*ZE12    ) 

C     +BD*(    ZE4P   -ZE8   -0.5D0*U*ZE8/POK  -(P2+PK.*U)*ZE8P  + 
C  (l.DCH-P0K*U)*ZE12P  +U*0.5D0*ZE12/PK   ) 

V8U=ADU*Z8+AD*Z8U  +BDU*(ZE4   -(P2+PK*U)*ZE8 
C       +(1.D0+P0K*U)*ZE12) 

C     +BD*(    ZE4U  -PK*ZE8   -(P2+PK*U)*ZE8U  +( 1  .D0+P0K*U)*ZE12U 
C  +P0K*ZE12) 

V9=AD*Z9   +BD*((K2+PK*U)*ZE9    -(P2+PK*U)*ZE13   +K2*  ZE4    ) 

V9P=ADP*Z9   +AD*Z9P  +BDP*(  (K2+PK*U)*ZE9 
C        -(P2+PK*U)*ZE13   +K2*ZE4) 

C     +BD*(0.5D0*U*ZE9/POK  +(K2+PK*U)*ZE9P   -ZE13   -(P2+PK*U)*ZE13P 
C     +K2*ZE4P   -U*0.5DO*ZE13/POK   ) 

V9U=ADU*Z9+Z9U*AD  +BDU*(  (K2+PK*U)* ZE9    -(P2+PK*U)*  ZE13   +K2*ZE4) 
C     +BD*(    (K2+PK*U)*ZE9U   +PK* ZE9    -(P2+PK*U)* ZE1 3U 
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C     -PK*ZE13   +K2*ZE4U) 

V10=AD*Z10   +BD*(     ZE3   +ZE10   +K2*ZE11    ) 

V10P=AD*Z10P+ADP*Z10  +BDP*(    ZE3  +ZE10   +K2*ZE11) 
C     +BD*(    ZE3P  +  ZE10P  +K2*ZE11P    ) 

V10U=AD*Z10U   +ADU*Z10   +BDU*(     ZE3   +ZE10   +K2*ZE11    ) 
C     +BD*(    ZE3U  +ZE10U  +K2*ZE11U    ) 

V11  =  AD*Z11   +BD*(ZE12   -ZE3   +K2*ZE8) 

V11P=ADP*Z11   +AD*Z11P  +BDP*(ZE12   -ZE3  +K2*ZE8) 
C     +BD*(ZE12P  -ZE3P  +K2*ZE8P) 

V11U=ADU*Z11   +AD*Z11U  +BDU*(ZE12    -ZE3  +K2*ZE8) 
C  +BD*(ZE12U  -ZE3U  +K2*ZE8U) 

V12=AD*Z12        +BD*(+(1.D0+P0K*U)*ZE3   +ZE4    ) 

V12P=ADP*Z12  +AD*Z12P  +BDP*(    ( 1 .  D0+P0K*U)*ZE3  +ZE4) 
C     +BD*((1.D0+P0K*U)*ZE3P  +0.5DO*U*ZE3/PK  +ZE4P) 

V12U=ADU*Z12  +AD*Z12U  +BDU*(  ( 1 .  D0+P0K*U)*ZE3  +  ZE4) 
C     +BD*((1.D0+P0K*U)*ZE3U  +P0K*ZE3  +ZE4U) 

V13=AD*Z13  +BD*(-K2*ZE4+(P2+PK*U)*ZE3) 

V13P=ADP*Z13  +Z13P*AD  +BD*(-K2*  ZE4P   +ZE3  +0.5D0*U*  ZE3/P0K 
C     +(P2+PK*U)*ZE3P)    +BDP*(-K2*ZE4+(P2+PK*U)*ZE3) 

V13U=ADU*Z13  +AD*Z13U  +BDU*(    -K2*ZE4  +(P2+PK*U)*ZE3) 
C     +BD*(-K2*ZE4U  +(P2+PK*U)*ZE3U  +PK*ZE3) 

V14=AD*Z14  +BD*(ZE9   +ZE13      -ZE3) 

V14P=ADP*Z14+AD*Z14P  +BDP*(  ZE9   +ZE13   -ZE3) 
C     +BD*(ZE9P  +ZE13P   -ZE3P) 

V14U=ADU*Z14  +AD*Z14U  +BDU*(  ZE9+ZE13   -ZE3) 
C       +BD*(ZE9U  +ZE13U  -ZE3U) 

W1  =  AD*ZE1      +BD*(-(P2+PK*U)*Z2    -( 1 .  DO+POK*U)* Z5   -Z7   -Z8    ) 

W1P=AD*ZE1P+ADP*ZE1   +BD*(-Z2   -U*0. 5D0* Z2/P0K  -(P2+PK*U)*Z2P 
C     -0.5DO*U*Z5/PK  -(l.D0+P0K*U)*Z5P   -Z7P   -Z8P) 
C       +BDP*(-(P2+PK*U)*Z2 
C     -(l.D0+P0K*U)*Z5   -Z7   -Z8) 

W1U=ADU*ZE1   +AD*ZE1U  +BDU*(-(P2+PK*U)*Z2   -( 1 .  D0+P0K*U)*Z5   -Z7   -Z8) 
C     +BD*(-PK*Z2   -(P2+PK*U)*Z2U  -P0K*Z5   -( 1  .D0+P0K*U)*Z5U  -Z7U  -Z8U) 

W2=AD*ZE2     +BD*(-(P2+PK*U)*Z3   -(K2+PK*U)*Z6   -K2*  Z7   -Z9    ) 

W2P=ADP*ZE2  +AD*ZE2P 
C  +BDP*(-(P2+PK*U)*Z3   -(K2+PK*U)*Z6   -K2*Z7   -Z9) 
C     +BD*t-Z3   -0.5D0*U*Z3/POK  -(P2+PK*U)*Z3P  -0.5DO*U*Z6/POK 
C  -(K2+PK*U)*Z6P   -K2*Z7P   -Z9P    ) 

W2U=ADU*ZE2   +AD*ZE2U  +BDU*(-(P2+PK*U)*Z3   -(K2+PK*U)*Z6 
C     -K2*Z7-Z9) 
C       +BD*(-PK*Z3   -(P2+PK*U)*Z3U   -(K2+PK*U)*Z6U  -PK*Z6   -K2*Z7U  -Z9U) 

W3=AD*ZE3  +BD*(    Z13   +K2*Z12) 

W3P=ADP*ZE3  +AD*ZE3P  +BDP*(Z13  +K2*Z12    )   +BD*(  Z13P+K2*  Z12P) 


W3U=ADU*ZE3   +AD*ZE3U  +BDU*(  Z13+K2*Z12    )   +BD*(  Z13U+K2*Z12U) 
W4=AD*ZE4+BD*(+(P2+PK*U)*Z12      -( 1 .  D0+P0K*U)*Z13    ) 
W4P=ADP*ZE4   +AD*ZE4P   +BDP*(  (P2+PK*U)*Z12   -( 1 .  DO+POK*U)*  Z13) 

C       +BD*(    Z12   +0.5D0*U*Z12/P0K  +(P2+PK*U)*Z12P   -( 1 .  D0+P0K*U)*Z13P 

C  -U*0.5D0*Z13/PK   ) 

W4U=ADU*ZE4   +AD*ZE4U   +BDU*(  (P2+PK*U)*  Zl  2    -(  1  ,DO+POK*U)*  Z13) 

C     +BD*(PK*Z12  +(P2+PK*U)*Z12U  -( 1 .  DO+POK*U)*  Z13U  -P0K*Z13    ) 
W5=AD*ZE5   +BD*(-(P2+PK*U)*Z1    -( 1  .  DO+POK*U)*  Z4    ) 
W5P=ADP*ZE5   +AD*ZE5P   +BDP*(-(  P2+PK*U)*  Zl    -(  1 .  DO+POK*U)*  Z4  ) 
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C     +BD*(-Z1    -0.5DO*U*Z1/POK   -(P2+PK*U)*Z1P    -( 1 . DO+POK*U)* Z4P 
C  -0.5DO*U*Z4/PK    ) 

W5U=ADU*ZE5+AD*ZE5U   +BDU*(-(P2+PK*U)*Z1    -( 1 .  DO+POK*U)*  Z4) 
c     +BD*(-PK*Z1    -(P2+PK*U)*Z1U   -(  1 .  DO+POK*U)*  Z4U   -P0K*Z4) 

W6=AD*ZE6+BD*(K2*Z2   -Z5   -Z10   -Zll    ) 

W6P=ADP*ZE6  +AD*ZE6P  +BDP*(    K2*  Z2   -Z5-Z10-Z11) 
C       +BD*(K2*Z2P   -Z5P   -ZIOP   -Z11P) 

W6U=ADU*ZE6  +AD*ZE6U  +BDU*(    K2*Z2   -75   -ZIO   -Zll) 
C       +BD*(    K2*Z2U  -Z5U  -ZIOU  -Z11U) 

W7  =  AD*ZE7+BD*(Z3   -Z6   -ZIO   -Z14    ) 

W7P=ADP*ZE7   +AD*ZE7P  +BDP*(    Z3   -Z6   -ZIO   -Z14) 
C       +BD*(Z3P   -Z6P   -ZIOP   -Z14P    ) 

W7U=ADU*ZE7   +AD*ZE7U  +BDU*(Z3   -Z6   -ZIO   -Z14    ) 
C       +BD*(Z3U  -Z6U  -ZIOU  -Z14U) 

W8=AD*ZE8  +BD*(-Z8  +(1  .DO+POK*U)*Zll   +  Z12      ) 

W8P=ADP*ZE8  +AD*ZE8P  +BDP*(-Z8  +(  1  .DO+POK*U)*  Zll   +Z12    ) 
C  +BD*(    -Z8P  +(1.D0+P0K*U)*Z11P  -K).5DO*U*Zl  1/PK  +Z12P) 

W8U=ADU*ZE8   +AD*ZE8U  +BDU*(    -Z8  +(  1  .DO+POK*U)*  Zll   +Z12) 
C     +BD*(    -Z8U  +P0K*Z11   +(1.D0+P0K*U)*Z11U  +Z12U    ) 

W9  =  AB*ZE9   +BD*(Z9  +(P2+PK*U)*Z14   +Z13    ) 

W9P=ADP*ZE9   +AD*ZE9P   +BDP*(Z9   +(P2+PK*U)*Z14  +Z13) 
C       +BD*(Z9P  +Z14  +U*0.5DO*Z14/POK  +(P2+PK*U)*Z14P  +Z13P) 

W9U=ADQ*ZE9   +AD*ZE9U  +BDU*(Z9   +(P2+PK*U)*Z14  +Z13) 
C       +BD*(    Z9U  +(P2+PK*U)*Z14U  +PK*Z14  +Z13U) 

W10=AD*ZE10  +BD*(K2*Z7   +(P2+PK*U)*Z10   -Z13    ) 

W10P=ADP*ZE10  +AD*ZE10P  +BDP*(K2*Z7   +(P2+PK*U)*  Z10-Z13) 
C  +BD*(K2*Z7P  +Z10  +0.5DO*U*  ZIO/POK  +(P2+PK*U)*Z10P   -Z13P) 

W10U=ADU*ZE10  +AD*ZE10U  +BDU*(K2*Z7   +(P2+PK*U)*  ZIO   -Z13) 
C     +BD*(K2*Z7U  +PK*Z10  +(P2+PK*U)*Z10U  -Z13U) 

W11=AD*ZE11    +BD*(-Z7   +(  1 .  DO+POK*U)*  ZIO      -Z12    ) 

W11P=ADP*ZE11   +AD*ZE11P  +BDP*(-Z7   +(  1 . DO+POK*U)* ZIO  -Z12) 
C     +BD*(-Z7P  +(1.DO+POK*U)*Z10P  +0.5DO*U*  ZIO/PK  -Z12P) 

W11U=ADU*ZE11   +AD*ZE11U  +BDU*(    -Z7   +( 1 . DO+POK*U)* ZIO   -Z12) 
c     +BD*(    _27U  +(1.DO+POK*U)*Z10U  +POK*Z10   -Z12U   ) 

W12=AD*ZE12        +BD*(K2*Z8  +(P2+PK*U)*Z11   +Z13    ) 

W12P=ADP*ZE12   +AD*ZE12P  +BDP*(K2*Z3  +(P2+PK*U)*  Zll   +Z13) 
C       +BD*(    K2*Z8P  +Z11   +0.5D0*U*Z11/P0K  +(P2+PK*U)*Z1  IP  +Z13P) 

W12U=ADU*ZE12  +AD*ZE12U  +BDO*(    K2*Z8  +(P2+PK*U)*Z11   +Z13) 
C       +BD*(    K2*Z8U  +PK*Z11   +(P2+PK*U)*Z1 1U  +Z13U   ) 

W13=AD*ZE13  +BD*(-Z9  +(K2+PK*U)*Z14  +K2*Z12    ) 

W13P=AD*ZE13P+ADP*ZE13  +BDP*(-Z9   +(K2+PK*U)*Z14  +K2*Z12) 
C       +BD*(-Z9P  +0.5DO*U*Z14/POK  +(K2+PK*U)*Z14P  +K2*Z12P    ) 

W13U=ADU*ZE13  +AD*ZE13U  +BDU*(    -Z9   +(K2+PK*U)*Z14  +K2*Z12) 
C       +BD*(-Z9U  +PK*Z14  +(K2+PK*U)*Z14U  +K2*Z12U) 

W14=AD*ZE14  +BD*(    K2*Z1    -ZA    ) 

W14P=ADP*ZE14   +AD*ZE14P  +BDP*(K2*Z1-ZA)   +BD*(K2*  ZIP-ZAP) 

W14U=ADU*ZE14  +AD*ZE14U  +BDU*(    K2*Z1-ZA)   +BD*(K2*  Z1U-ZAU) 

CALL   TETO(P2,U,K2) 

RETURN 

END 

SUBROUTINE    TETO(P2,U,K2) 

IMPLICIT  REAL*8    (A-H.O-Z) 

REAL* 8    K2 

COMMON/ SIGNPK/ SIGN 
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C0MM0N/SUBTT/TE(H),TES(14),TEP(14),A0UT,AP0UT,APP,B0UT,BP0UT, 

C  TO(14),TOS(14),TOP(14) 

COMMON/TWS/W1,W2,W3,W4,W5,W6,W7,W8,W9,W10,W11,W12,W13>W14 
C   , Wl P , W2P , W3P , W4P , W5P , W6P , W7P , W8P , W9P , Wl OP , Wl IP , Wl 2P , Wl 3P , Wl 4P 
C    ,W1U,W2U,W3U,W4U,W5U,W6U,W7U,W8U,W9U,W10U,W11U,W12U,W13U,W14U 

COMMON/TVS/V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,V11,V12,V13,V14 
C    ,V1P,V2P,V3P,V4P,V5P,V6P,V7P,V8P,V9P,V10P,V11P,V12P,V13P,V14P 
C    ,V1U,V2U,V3U,V4U,V5U,V6U,V7U,V8U,V9U,V10U,V11U,V12U,V13U,V14U 

P4=P2*P2 

P6=P2*P4 

PK=SIGN*DSQRT(P2*K2) 

POK=DSQRT(P2/K2) 

TE(1)=(    1.5DO*Wl    -0.5D0*POK*U*W6   -0.5DO*W7    -0.5DO*W8   -1.5DO*Wll) 

TEP(1)=(1.5D0*W1P  -0.5DO*POK*U*W6P   -0.25DO*U*W6/PK  -0.5DO*W7P 
C  -0.5DO*W8P   -1.5D0*W11P    ) 

TES(1)=1.5D0*W1U  -0.5DO*POK*W6  -0.5DO*POK*U*W6U  -0.5DO*W7U 
C  -0.5DO*W8U   -1.5D0*W11U 

TE(2)=(    1.5DO*W2  +0.5DO*P2*W6  +0.5DO*PK*U*W7   +1.5DO*W10 
C  +0.5D0*W12  +0.5D0*W14    ) 

TEP(2)=0.5DO*(    3*W2P  +W6  +P2*W6P  +PK*U*W7P  +0.5DO*U*W7/POK 
C  +3*W10P  +W12P  +W14P    ) 

TES(2)=0.5D0*(    3*W2U  +P2*W6U  +PK*U*W7U  +PK*W7 
C     +3*W10U  +W12U  +W14U) 

TE(3)=(    1.5DO*W3   -0.5D0*W12   -0.5DO*W13  +0.5D0*W14    ) 

TEP(3)=0.5DO*(    3*W3P   -W12P   -W13P  +W14P) 

TES(3)=0.5DO*(  3*W3U  -W12U  -W13U  +W14U) 

TE(4)=(  2.5DO*W4  -0.5DO*W5  +0.5DO*W9  +0.5DO*POK*U*W12 
C         -0.5DO*P2*W8  -0.5DO*POK*U*W13  ) 

TEP(4)=0.5D0*(5*W4P   -W5P  +W9P  +POK*U*W12P  +0.5DO*U*W12/PK 
C  -P2*W8P   -W8   -POK*U*W13P  -0.5DO*U*W13/PK   ) 

TES(4)=0.5DO*(5*W4U  -W5U  +W9U  +POK*U*W12U  +POK*W12   -P2*W8U 
C  -POK*U*W13U  -POK*W13    ) 

TE(5)=(    1.5DO*W5  -1.5DO*W4   -0.5DO*POK*U*W12  +0.5DO*P2*W8 
C  +0.5DO*POK*U*W13   -0.5DO*W9    ) 

TEP(5)=0.5DO*(3*W5P   -3*W4P  -POK*U*W12P  -U*0.5DO*W12/PK  +W8 
C  +P2*W8P  +POK*U*W13P  +0.5D0*U*W13/PK  -W9P    ) 

TES(5)=   0.5DO*(    3*W5U  -3*W4U  -POK*W12   -POK*U*W12U  +P2*W8U 
C  +POK*W13  +POK*U*W13U  -W9U    ) 

TE(6)=W6 

TEP(6)=W6P 

TES(6)=W6U 

TE(7)=W7 

TEP(7)=W7P 

TES(7)=W7U 

TE(8)=W8 

TEP(8)=W8P 

TES(8)=W8U 

TE(9)=W9 

TEP(9)=W9P 

TES(9)=W9U 

TE(10)=(    2.5DO*W10  +0.5DO*W2   +0. 5DO*P2*W6  +0. 5DO*PK*U*W7 
C  +0.5D0*W14  +0.5D0*W12    ) 

TEP(10)=0.5D0*(    5*W10P  +W2P  +W6   +P2*W6P   +PK*U*W7P 
C  +0.5DO*U*W7/POK  +W14P   +W12P    ) 


174 


TES(10)=0.5D0*(  5*W10U  +W2U  +P2*W6U  +PK*U*W7U  +PK*W7 
C     +W14U  +W12U  ) 

TE(11)=(2.5D0*W11  -0.5D0*W1  +0. 5D0*POK*U*W6  +0.5DO*W7 
C  +0.5D0*W8) 

TEP(11)=0.5D0*(5*W11P   -W1P   +P0K*U*W6P   +0.5D0*U*W6/PK  +W7P  +W8P) 

TES(11)=0.5D0*(5*W11U-W1U  +POK*W6  +POK*U*W6U  +W7U  +W8U   ) 

TE(12)=(    1.5D0*W12   -0.5D0*W3    -0.5D0*W14  +0.5D0*W13      ) 

TEP(12)=0.5D0*(  3*W12P  -W3P  -W14P  +W13P  ) 

TES(12)=0.5D0*(3*W12U  -W3U  -W14U  +W13U  ) 

TE(13)=(  1.5D0*W13  -0.5DO*W3  -0.5DO*W14  +0.5D0*W12  ) 

TEP(13)=0.5DO*(3*W13P  -W3P  -W14P  +W12P) 

TES(13)=0.5D0*(3*W13U  -W3U  -W14U  +W12U) 

TE(14)«(  1.5D0*W14  +0.5D0*W3  -0.5DO*W12  -0.5D0*W13  ) 

TEP(14)=0.5D0*(3*W14P  +W3P  -W12P  -W13P) 

TES(14)=0.5D0*(3*W14U  +W3U  -W12U  -W13U) 

T0(1)=(1.5D0*V1  -0.5DO*V8  +0.5D0*POK*U*Vll  +V12  +0.5D0*V14  ) 

TOP(1)=0.5DO*(3*V1P  -V8P  +P0K*U*V11P  +0.5D0*U*V11/PK 
C  +2*V12P+V14P) 

TOS(1)=0.5DO*(3*V1U  -V8U  +P0K*V11  +P0K*U*V11U  +2*V12U+V14U) 

TO(2)=V2 

T0P(2)=V2P 

TOS(2)=V2U 

TO(3)=(1.5D0*V3  -0.5D0*V5  -V10  -0.5D0*V11  ) 

TOP(3)=0.5D0*(  3*V3P  -V5P  -2*V10P  -VHP  ) 

TOS(3)=0.5D0*(3*V3U  -V5U  -2*V10U  -V11U) 

TO(4)=(1.5D0*V4  -0.5D0*V9  -0.5D0*P2*V11  -V13  -0.5D0*PK*U*V14) 

TOP(4)=0.5D0*(3*V4P  -V9P  -Vll  -P2*V11P-2*V13P-0.5DO*U*V14/POK 
C  -PK*U*V14P  ) 

TOS(4)=0.5DO*(3*V4U  -V9U  -P2*V11U  -2*V13U  -PK*V14  -PK*U*V14U) 

TO(5)=(1.5DO*V5      -0.5DO*V3  +V10  +0.5D0*V11    ) 

TOP(5)=0.5D0*(3*V5P  -V3P  +2*V10P  +V11P) 

TOS(5)=0.5D0*(3*V5U  -V3U  +2*V10U  +V11U) 

TO(6)=V6 

TOP(6)=V6P 

TOS(6)=V6U 

TO(7)=(  3.DO*V7  +0.5D0*V1  +0.5D0*P2*V2  +0.5D0*POK*U*V3 
C         +0.5DO*POK*U*V5  +0.5DO*V6  +0.5D0*V8   ) 

TOP(7)=0.5D0*(  6.DO*V7P  +V1P  +P2*V2P  +V2  +0.5D0*U*V3/PK 
C         +POK*U*V3P  +0.5D0*U*V5/PK  +POK*U*V5P  +V6P  +V8P) 

TOS(7)=0.5D0*(  6.DO*V7U  +V1U  +P2*V2U 
C   +POK*V3  +POK*U*V3U  +POK*V5 
C         +POK*U*V5U  +V6U  +V8U  ) 

TO(8)=(1.5DO*V8  -0.5D0*V1  -0.5DO*POK*U*V11  -V12  -0.5D0*V14  ) 

TOP(8)=0.5DO*(3*V8P-V1P  -P0K*U*V11P 
C   -0.5D0*U*Vll/PK  -2*V12P  -V14P) 

TOS(8)=0.5D0*(3*V8U  -V1U  -P0K*U*V11U  -P0K*V11  -2*V12U  -V14U) 

TO(9)=(1.5D0*V9  -0.5D0*V4+0.5D0*P2*V11  +V13  +0.5D0*PK*U*V14  ) 

TOP(9)=0.5DO*(3*V9P   -V4P   +V11    +P2*V11P  +2*V13P  +PK*U*V14P 
C  +0.5D0*U*V14/POK   ) 

TOS(9)=0.5DO*(3*V9U   -V4U  +P2*V11U  +2*V13U  +PK*U*V14U  +PK*V14) 

TO(10)=(1.5DO*V10   -0.5DO*V3   +0.5D0*V5  +0.5D0*V10  +0.5D0*V11    ) 

TOP(10)=0.5D0*(  3*V10P  -V3P  +V5P  +V10F  +V11P) 

TOS(10)=0.5DO*(  3*V10U  -V3U  +V5U  +V10U  +V11U) 

T0(11)=V11 
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T0P(11)=V11P 

T0S(11)=V11U 

TO(12)=(1.5D0*V12   +0.5D0*V1    -0.5D0*V8   +0.5D0*V12 
C  +0.5DO*POK*U*V11   +0.5D0*V14    ) 

TOP(12)=0.5DO*(  3*V12P  +V1P  -V8P  +V12P  +P0K*U*V11P  +0.5D0*U* 
C  Vll/PK  +V14P) 

TOS(12)=0.5D0*(  3*V12U  +V1U  -V8U  +V12U 
C  +P0K*V11  +P0K*U*V11U  +V14U) 

T0(13)=(   1.5D0*V13  -0.5D0*V4  +0.5D0*V13  +0. 5D0*P2*V11 
C         +0.5D0*PK*U*V14  +0.5D0*V9  ) 

TOP(13)=0.5DO*(  3*V13P  -V4P  +V13P  +V11  +P2*V11P  +PK*U*V14P 
C         +0.5D0*U*V14/POK  +V9P  ) 

TOS(13)=0.5DO*(  3*V13U  -V4U  +V13U  +P2*V11U  +PK*V14  +PK*U*V14U 
C         +V9U  ) 

T0(14)=V14 

TOP(14)=V14P 

T0S(14)=V14U 
50    CONTINUE 
99    CONTINUE 

IK  1=0 

IF(IKI.EQ.l) WRITE    (6,666)    (TOP( IS) , IS=1 ,14) ,(TOS( IR) , IR=1 , 14) 
666      FORMAT   ('    TOP.TOS' .6D15.6) 

IF(IKI.EQ.1)WRITE    (6,556)    (TEP( IS) , IS=1 , 14) ,(TES( IR) , IR=1 , 14) 
556      FORMAT   ('    TEP,TES' .6D15.6) 

RETURN 

END 
C  THIS    IS    THE    ELECTRON   PROPAGATOR    FUNCTION   A(P2) 

FUNCTION  XA(R) 

IMPLICIT  REAL*8    (A-H.O-Z) 

COMMON/ SCALE/ SKL 

IF  (DABS(R).LT.0.1D-6)    GO  TO   1 

SE=1.74517D-3 

SM=1.D0*SKL 

SM2=SM*SM 

XR=DABS(1.D0-R/SM2) 

XP=SE*(SM2-R)/R 

XA=-XR**XP 
C  XA=XA*(SKL)**(2.D0*XP) 

XA=XA*SKL 

RETURN 
1    XA=1.D0 
C  XA=0.0D0 

RETURN 

END 
C  THESE    TWO    FUNCTIONS    DEFINE    THE    DERIVATIVES    OF  THE   ELECTRON  PROPAGATOR 
C   FUNCTION   A 

FUNCTION  XAP(R) 

IMPLICIT  REAL*8    (A-H.O-Z) 

COMMON/ SCALE/ SKL 

SE=1.74517D-3 

SM=1.D0*SKL 

SM2=SM*SM 

XR=DABS(1.D0-R/SM2) 

XAP=(-SE*SM2*DLOG(XR)/R**2    -SE/R)*XA(R) 
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RETURN 

END 

FUNCTION  XAPP(R) 

IMPLICIT   REAL*8    (A-H.O-Z) 

COMMON/ SCALE/ SKL 

SE=1.74517D-3 

SM=l.DO*SKL 

SM2=SM*SM 

XR=DABS(l.DO-R/SM2) 

XAPP=(2*SE*SM2*DLOG(XR)/R**3 
C  +SE*SM2/((SM2-R)*R**2)   +SE/R**2    )*XA(R) 
C     +(-SE*SM2*DLOG(XR)/R**2   -SE/R    )*XAP(R) 

RETURN 

END 
C  THIS    IS   THE   ELECTRON  PROPAGATOR    FUNCTION  B(P2) 

FUNCTION  XB(R) 

IMPLICIT  REAL*8    (A-H.O-Z) 

XB=1.0DO 

RETURN 

END 

FUNCTION  XBP(R) 

IMPLICIT  REAL*8    (A-H.O-Z) 

XBP=O.ODO 

RETURN 

END 
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C   THIS    IS    A  MAIN   TO    FORM   THE    PERTURBATION   SOLUTIONS 

C    IT    DOES    ALL   THE    DERIVATIVES    OF  THE    INTEGRALS    ANALYTICALLY. 

C  THIS    PROGRAM  WILL    WORK    FOR    NEGATIVE    MOMENTA. 

C  YOU    MUST   SUPPLY   P    SQUARED,    U    AND  K   SQUARED.    IF  P2    IS    NEGATIVE 

C   SO    MUST    BE   K2    AND  YOU   MUST   GIVE    THE    SIGN   OF  THE    MOMENTA 

C  THIS    PROGRAM  SENDS    ITS    DATA  TO   JC. FUND  WHERE    IT    IS    STORED 

C    FOR   J C. MAIN   TO   USE. 

IMPLICIT  REAL*8    (A-H.O-Z) 

REAL*  8    K2 

COMMON/ SIGNPK/ SIGN 

COMMON/ FUNS/XF(8  ,10) 

COMMON/  SCALE/ SKL 

WRITE(6,701) 
701    FORMATC    P2  ,U,K2  , SKL, SIGN' ) 

READ(9,*)    P2,U,K2, SKL, SIGN 

PK=SIGN*DSQRT(P2*K2) 

RL=P2+2.D0*PK*U  +K2 

SM1=-XA(RL) 

SM2=-XA(P2) 

WRITE(6,783)    SMI ,SM2 ,RL,P2 

783  FORMATC    Al    AND   A2*,2D15.7/'    PI    SQ.    AND  P2    SQ.',2D15.7) 
THETA=0.0 

WRITE(4,22)P2,U,K2,SKL,SIGN 
22    FORMAT(D24.16,4D11.3) 

CALL  PERTF(P2,U,K2,SM1,SM2,SKL) 

CALL  PERTG(P2,U,K2,SM1,SM2,SKL) 

CALL  PERTH(P2,U,K2,SM1,SM2,SKL) 

DO   10    1=1,10 

XF(7,I)=-XF(7,I) 

XF(8,I)=XF(1,I)/3.D0 
10   XF(1,I)  =  (SM1+SM2)*XF(1,I)/2.D0 

WRITE(6,784)    XF(7,1) 

784  FORMATC    H2=',D15.7) 
DO  20  J=l,8 

C  WRITE(6,33)(XF(J,I),I=1,10) 

20  WRITE(4,33)(XF(J,I),I=1,10) 
33    FORMATC 3 D24. 16) 

STOP 

END 
C  THIS    PROGRAM  DEFINES    THE    F   AND    I    FUNCTIONS    AND   THEIR    DERIVATIVES 

SUBROUTINE   PERTF(P2 ,U,K2 ,SM1 ,SM2 ,SKL) 

IMPLICIT  REAL*8    (A-H,0-Z) 

REAL*8   K2 

COMMON/  S IGNPK/  S IGN 

COMMON/ FUNS/ X  F(  8  , 1 0  ) 

COMMON/ INT/ DI( 40) 
C  THIS    IS   PERTF 

EPS=2.322819D-03 

IOUT=l 

T1=1.D0 

T2=2.D0 

T3=3.D0 

T4=4.D0 

T5=5.D0 
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SMA=0.5D0*(SM1+SM2) 

PK=SIGN*DSQRT(P2*K2) 

POK=DSQRT(P2/K2) 

CALL   INTGRT(1,1,10,SM1,SM2,P2,U,K2) 

XF(l,l)  =  0.75DO*EPS*PK*DI(l) 

XF(1 ,2)=0.75DO*EPS*(PK*DI(2)   +0.5D0*DI( 1 )/POK) 

XF(l,3)=0.75DO*EPS*(    PK*DI(3)   +DI(2)/P0K 
C       -0.25DO*DI(l)/(P2*POK)) 

XF(1 ,4)=0.75D0*EPS*(PK*DI(4)   +1 .5DO*DI(3)/POK 
C  -0.75D0*DI(2)/(P2*POK)   +T3*DI( 1)/(8.DO*(P2*P2*POK) )    ) 

XF(1,5)=0.75D0*EPS*PK*DI(5) 

XF(l,6)=0.75DO*EPS*PK*DI(6) 

XF(l,7)=0.75DO*EPS*PK*DI(7) 

XF(1,8)=0.75D0*EPS*(PK*DI(8)    +0.5D0*DI(5)/POK) 

XF(1,9)=0.75DO*EPS*(PK*DI(9)   +0.5DO*DI(6)/POK) 

XF(l,10)=0.75DO*EPS*(PK*DI(10) 
C         +DI(8)/P0K  -0.25DO*DI(5)/(P2*POK)) 

IOUT=0 

IF( IOUT.EQ. 1 )WRITE(6 ,77 )    (XF( 1 , IK) , IK=1 , 10) 
77      FORMATC    THE    F' .D24.16/3D24. 16/3D24. 16/3D24. 16) 

RETURN 

END 
C  THIS   PROGRAM  DEFINES   THE   G0.G1.G2    FUNCTIONS    AND   DERIVATIVES 

SUBROUTINE   PERTG(P2 ,U,K2 ,SM1 ,SM2 ,SKL) 

IMPLICIT  REAL*8    (A-H,0-Z) 

REAL*8   K2 

COMMON/  S IGNPK/  S IGN 

COMMON/ INT/ DI( 40) 

COMMON/FUNS/    XF(8,10) 

DATA  EPS/2. 322819D-03/ 

AM2=SM1*SM2 

PK=SIGN*DSQRT(P2*K2) 

P4=P2*P2 

POK=DSQRT(P2/K2) 

CALL   INTGRT(2, 1,30, SMI, SM2,P2,U,K2) 

T1=1.0D0 

T2=2.0D0 

T3=3.0D0 

T4=4.0D0 

T5=5.0D0 

IOUT=0 

IF(IOUT.EQ.l)WRITE(6,116)P2,U 
116    FORMATC    P2,U    IN  PERTG* ,2D18.8, 13 ,D14.5) 

WA=P2+T2*PK*U+K2 

WAP=T1+U/P0K 

WAS=T2*PK 

WAPP=-0 . 5 D0*U/ ( P2*POK) 

WAPPP=0.75DO*U/(P4*POK) 

WASP=1.D0/P0K 

WASPP=-0.5D0/(P2*POK) 

W1=AM2/WA-T1 

W1P=-AM2*WAP/WA**2 

W1PP=T2*AM2*WAP*WAP/WA**3    -AM2*WAPP/WA**2 
761    FORMATC 3 Dl  5. 7) 
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W1PPP=-6.D0*AM2*WAP**3/WA**4   +6. DO* AM2*WAPP*WAP/WA**3 
C  -AM2*WAPPP/WA**2 

W1S=-AM2*WAS/WA**2 

W1SS=T2*AM2*WAS*WAS/WA**3 

W1SSS=-6.D0*AM2*WAS**3/WA**4 

W1SP=T2*AM2*WAP*WAS/WA**3   -AM2*WASP/WA**2 

W1SSP=T2*AM2*WASP*WAS/WA**3   -6.  DO*AM2*WAP*WAS**2/WA**4 
C  +T2*AM2*WASP*WAS/WA**3 

W1SPP=T2*AM2*WAPP*WAS/WA**3   +T2*AM2*WAP*WASP/WA**3 
C  -6.DO*AM2*WAP*WAP*WAS/WA**4   -AM2*WASPP/WA**2 
C  +T2*AM2*WASP*WAP/WA**3 

W2=DLOG( DABS( AM2-WA) )-DLOG(  AM2 ) 
W2=DLOG( DABS( 1 .O-WA) ) 

W2P=-WAP/(AM2-WA) 

W2PP=-(WAP)**2/(  AM2-WA)**2 
C  -WAPP/(AM2-WA) 

W2PPP=-T2*WAPP*WAP/(AM2-WA)**2 
C  -T2*(WAP)**3/(AM2-WA)**3   -WAPPP/( AM2-WA) 
C  -(WAPP)*(WAP)/(AM2-WA)**2 

W2S=-(WAS)/(AM2-WA) 

W2SS=-(WAS)**2/(AM2-WA)**2 

W2SSS=-T2*(WAS)**3/(AM2-WA)**3 

W2SP=-(WASP)/(AM2-WA)    -(WAS)*(WAP)/( AM2-WA)**2 

W2SSP=-T2*(WASP)*(WAS)/(AM2-WA)**2 
C  -T2*(WAP)*(WAS)**2/(AM2-WA)**3 

W2SPP=-T2*(WASP)*(WAP)/(AM2-WA)**2 
C  -T2*(WAS)*(WAP)**2/(AM2-WA)**3 
C  -(WASPP)/(AM2-WA)    -(WAS)*(WAPP)/(  AM2-WA)**2 

W3=AM2/P2-T1 

W3P=-AM2/P2**2 

W3PP=T2*AM2/P2**3 

W3PPP=-6.DO*AM2/P2**4 

W4=DLOG( DABS( AM2-P2 ) )-DLOG( AM2 ) 
W4=DLOG( DABS( 1 . D0-P2) ) 

W4P=-(T1)/(AM2-P2) 

W4PP=-T1/(AM2-P2)**2 

W4PPP=-T2/(AM2-P2)**3 

W=W1*W2+W3*W4 

WP=W1P*W2+W1*W2P  +W3P*W4+W4P*W3 

WPP=   W1PP*W2  +T2*W1P*W2P  +W1*W2PP  +W3PP*W4  +T2*W3P*W4P 
C  +W4PP*W3 

WPPP=W1PPP*W2  +T3*W1PP*W2P  +T3*W1P*W2PP  +W1*W2PPP 
C  +W3PPP*W4  +T3*W3PP*W4P  +T3*W3P*W4PP  +W3*W4PPP 

WS=W1S*W2  +W1*W2S 

WSS=W1SS*W2  +T2*W1S*W2S  +W1*W2SS 

WSSS=W1SSS*W2  +T3*W1SS*W2S  +T3*W1S*W2SS  +W1*W2SSS 

WSP=W1SP*W2  +W1S*W2P  +W1P*W2S  +W1*W2SP  +W1SP*W2  +W1SS*W2P 

WSSP=W1SSP*W2  +W1SS*W2P  +W1SP*W2S  +W1S*W2SP  +W1SSP*W2 
C  +W1SSS*W2P 
C  +W1SP*W2S  +W1S*W2SP   +W1P*W2SS  +W1*W2SSP  +W1SP*W2S  +W1SS*W2SP 

WSPP=W1SPP*W2   +W1SP*W2P   +W1PP*W2S   +W1P*W2SP   +W1SPP*W2 
C  +W1SSP*W2P 
C  +W1SP*W2P   +W1S*W2PP   +W1P*W2SP   +W1*W2SPP   +W1SP*W2P   +W1SS*W2PP 

CK=T2*P2*U+PK 


OCP=T2*U   +1.DO/(T2*POK) 

CKPP=-0.25D0/(P2*POK) 

CKPPP=0.37  5DO/(P4*POK) 

CKS=T2*P2 

CKSP=T2 

XF(2,1)=1.D0  +EPS*0.25D0*W  +EPS*DI(  1  )/4.  DO 

XF(2,2)=EPS*0.25DO*WP  +EPS*DI(2)/4.DO 

XF(2,3)=EPS*0.25DO*WPP  +EPS*DI(3)/4.DO 

XF(2,4)=EPS*0.25DO*WPPP  +EPS*DI(4)/4.DO 

XF(2,5)=EPS*0.25DO*WS  +EPS*DI(5)/4.DO 

XF(2,6)=EPS*0.25DO*WSS  +EPS*DI(6)/4.DO 

XF(2,7)=EPS*0.25DO*WSSS  +EPS*DI(7)/4.DO 

XF(2,8)=EPS*0.25DO*WSP  +EPS*DI(8)/4.DO 

XF(2,9)=EPS*0.25DO*WSSP  +EPS*DI(9)/4.DO 

XF(2,10)=EPS*0.25DO*WSPP  +EPS*DI( 10)/4.D0 

XF(3,1)=EPS*0.5DO*P2*DI(11) 

XF(3,2)=EPS*0.5DO*(    DI(  11)+P2*DI(12)  ) 

XF(3,3)=EPS*0.5DO*(    T2*DI( 12)+P2*DI(13) ) 

XF(3,4)=EPS*0.5DO*(    T3*DI(13)+P2*DI(14)) 

XF(3,5)=EPS*0.5D0*P2*DI(15) 

XF(3,6)=EPS*0.5DO*P2*DI(16) 

XF(3,7)=EPS*0.5DO*P2*DI(17) 

XF(3,8)=EPS*0.5DO*(    DI(15)   +P2*DI(18)) 

XF(3,9)=EPS*0.5DO*(    DI(16)   +DI(18)   +P2*DI(19)) 

XF(3,10)=EPS*0.5DO*(    DI(18)   +DI(18)   +P2*DI(20)) 

XF(4,1)=0.25D0*EPS*CX*DI(21) 
C  +0.25DO*EPS*PK*DI(ll) 

XF(4,2)=0.25DO*EPS*(    CKP*DI(21)   +CK*DI(22)    ) 
C  +0.25DO*EPS*(    0.5DO*DI(11)/POK  +PK*DI(12)    ) 

XF(4,3)=0.25DO*EPS*(    CKPP*DI(21)   +T2*OCP*DI(22) 
C  +CX*DI(23)    )   +0.25DO*EPS*(    -0.25D0*DI(ll)/(P2*POK) 
C  +DI(12)/POK  +PK*DI(13)    ) 

XF(4,4)=0.25DO*EPS*(    CKPPP*DI(21)   +T3*OCPP*DI(22) 
C  +T3*CKP*DI(23)   +CK*DI(24))      +0.25DO*EPS*( 
C  0.375DO*DI(11)/(P4*POK)   -0.75DO*DI( 12)/(P2*POK) 
C  +1.5D0*DI(13)/POK 
C     +PK*DI(14)    ) 

XF(4,5)=0.25DO*EPS*(    CKS*DI(21)   +CK*DI(25)    ) 
C  +0.25D0*EPS*PK*DI(15) 

XF(4,6)=0.25DO*EPS*(    CKS*DI(25)*T2  +CK*DI(26)) 
C  +0.25D0*EPS*PK*DI(16) 

XF(4,7)=0.25DO*EPS*(    T3*CKS*DI(26)   +CK*DI(27)) 
C  +0.25DO*EPS*PK*DI(17) 

XF(4,8)=0.25DO*EPS*(    CKSP*DI(21)   +CKS*DI(22) 
C  +CKP*DI(25)   +CK*DI(28)    ) 
C  +0.25DO*EPS*(    PK*DI(18)   +0.5DO*DI( 15)/POK) 

XF(4,9)=0.25DO*EPS*(    CKSP*DI(25)*T2   +CKS*DI(28)*T2 
C  +CKP*DI(26)   +QC*DI(29)    ) 
C  +0.25DO*EPS*(    PK*DI(19)   +0.5DO*DI( 16)/POK    ) 

XF(4,10)=0.25DO*EPS*(    CKSP*DI(22)   +CKSP*DI(22) 
C  +CKS*DI(23)    +CKPP*DI(25)    +(XP*DI(28)   +(XP*DI(28) 
C  +CK*DI(30)    ) 

C  +0.25DO*EPS*(    0.5DO*DI(18)/POK  +PK*DI(20) 
C  +0.5DO*DI(18)/POK  -0.25DO*DI( 15)/(P2*POK)    ) 
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RETURN 
END 
C   THIS    PROGRAM   DEFINES    THE    H0,H1,H2    FUNCTIONS 
SUBROUTINE   PERTH(P2 ,U ,K2 ,SM1 ,SM2 ,SKL) 
IMPLICIT   REAL*8    (A-H.O-Z) 
REAL* 8   K2 

COMMON/ S IGNPK/ S IGN 
COMMON/  FUNS/XF(8 ,  10) 
COMMON/ INT/ DI( 40) 
EPS=2.322819D-03 

CALL  INTGRT(3, 1,40, SMI, SM2,P2,U,K2) 
T1=1.D0 
T2=2.D0 
T3=3.D0 
T4=4.D0 
T5=5.D0 

PK=S IGN*DSQRT( P2*K2 ) 
P4=P2*P2 

POK=DSQRT(P2/K2) 
SMA=(SM1+SM2)/2.D0 
CH0=-EPS*SMA*P2*K2/8 .  DO 
CH0P=-EPS*SMA*K2/8 . DO 
CH1=-EPS*SMA*K2*(0.5D0*PK+U*P2)/8.D0 
CHlP=-EPS*SMA*K2*(0.25D0/POK+U)/8.D0 
CH1PP=-EPS*SMA*K2*(-0.125DO/(P2*POK))/8.DO 
CH1PPP=-EPS*SMA*K2*(T3/ ( 16 . D0*P4*P0K) )/8 . DO 
CH1S=-EPS*SMA*K2*P2/8.D0 
CH1SP=-EPS*SMA*K2/8.D0 
CH1SPP=0.0D0 

BH1=-EPS*SMA*K2*PK/16.D0 
BH1P=-EPS*SMA*K2/ ( 32 . D0*POK) 
BH1PP=EPS*SMA*K2/ ( 64 . D0*P2*P0K) 
BH1PPP=-1 .5D0*EPS*SMA*K2/ ( 64. D0*P4*POK) 
BH1S=0.0D0 
BH1SP=0.0D0 
BH1SPP=0.0D0 
AH2=EPS*SMA*K2/8 .  DO 
DH2=EPS*SMA*K2*K2/32.D0 
BH2=EPS*SMA*K2* (K2+PK*U) / 1 6 .  DO 
BH2P=EPS*SMA*K2*( 0 . 5D0*U/POK) / 1 6 .  DO 
BH2PP=EPS*SMA*K2*(-0 .25D0*U/ (P2*P0K) ) / 1 6. DO 
BH2PPP=EPS*SMA*K2* ( T3*U/ ( 8 . D0*P4*POK) ) / 1 6 . DO 
BH2S=EPS*SMA*K2*PK/ 1 6. DO 
BH2SP=EPS*SMA*K2/(32.D0*P0K) 
BH2SPP=EPS*SMA*K2*(-0.5D0/(P2*POK))/32.D0 
CH2=EPS*SMA*K2*(T2*PK*U+K2)/32.D0 
CH2P=EPS*SMA*K2*U/ (32 . DO*POK) 
CH2PP=EPS*SMA*K2* (-U/ ( T2*P2*POK) ) / 32 . DO 
CH2PPP=EPS*SMA*K2*(0.7  5DO*U/(P4*POK))/32.D0 
CH2S=EPS*SMA*K2*(T2*PK)/32.D0 
CH2SP=EPS*SMA*K2/ ( 32 . D0*POK) 
CH2SPP=EPS*SMA*K2*(-0.5D0/(P2*POK))/32.D0 
CH2SPP=EPS*SMA*K2*(-0.5DO/(P2*POK))/32.DO 
XF(5,1)=CH0*DI(1) 
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XF(5,2)  =  CH0*DI(2)   +CH0P*DI(1) 

XF(5,3)  =  CH0*DI(3)   +T2*CH0P*DI(2) 

XF(5,4)=CH0*DI(4)   +T3*CH0P*DI(3) 

XF(5,5)  =  CH0*DI(5) 

XF(5,6)  =  CHO*DI(6) 

XF(5,7)  =  CH0*DI(7) 

XF(5,8)=CH0*DI(8)   +  CH0P*DI(5) 

XF(5,9)  =  CH0*DI(9)   +CH0P*DI(6) 

XF(5,10)  =  CH0*DI(10)   +T2*CH0P*DI(8) 

XF(6,1)  =  CH1*DI(1)+BH1*DI(21) 

XF(6,2)  =  CH1*DI(2)   +CH1P*DI(1) 
C  +BH1*DI(22)   +BH1P*DI(21) 

XF(6,3)  =  CH1*DI(3)   +T2*CH1P*DI(2)   +CH1PP*DI(1) 
C       +BH1*DI(23)   +T2*BH1P*DI(22)   +BH1PP*DI(21) 

XF(6,4)  =  CH1*DI(4)   +T3*CH1P*DI(3)+T3*CH1PP*DI(2)+CH1PPP*DI(1) 
C     +BH1*DI(24)   +T3*BH1P*DI(23)+T3*BH1PP*DI(22)+BH1PPP*DI(21) 

XF(6,5)=CH1*DI(5)+CH1S*DI(1)+BH1*DI(25)+BH1S*DI(21) 

XF(6,6)=T2*CH1S*DI(5)+CH1*DI(6)   +T2*BH1S*DI(25)+BH1*DI(26) 

XF(6,7)=T3*CH1S*DI(6)+CH1*DI(7) 
C  +T3*BH1S*DI(26)    +BH1*DI(27) 

XF(6,8)  =  CH1*DI(8)   +CH1P*DI(5)+CH1SP*DI(1)   +CH1S*DI(2) 
C     +BH1*DI(28)   +BH1P*DI(25)+BH1SP*DI(21)   +BH1S*DI(22) 

XF(6,9)=T2*CH1SP*DI(5)   +CH1P*DI(6)   +T2*CH1S*DI(8)+CH1*DI(9) 
C  +T2*BH1SP*DI(25)   +BH1P*DI(26)   +T2*BH1S*DI(28)   +BH1*DI(29) 

XF(6,10)=CH1PP*DI(5)   +T2*CH1P*DI(8)   +CH1*DI(10)   +CH1SPP 
C  *DI(1)   +CH1SP*DI(2)   +CH1SP*DI(2)    +CH1S*DI(3) 
C     +BH1PP*DI(25)   +T2*BH1P*DI(28)   +BH1*DI(30)   +BH1SPP 
C  *DI(21)   +BH1SP*DI(22)   +BH1SP*DI(22)   +BH1S*DI(23) 

XF(7,1)  =  CH2*DI(1)+BH2*DI(21) 

XF(7,2)  =  CH2*DI(2)    +CH2P*DI(1) 
C  +BH2*DI(22)   +BH2P*DI(21) 

XF(7,3)  =  CH2*DI(3)   +T2*CH2P*DI(2)   +CH2PP*DI(1) 
C       +BH2*DI(23)   +T2*BH2P*DI(22)   +BH2PP*DI(21) 

XF(7,4)  =  CH2*DI(4)   +T3*CH2P*DI(3)+T3*CH2PP*DI(2)+CH2PPP*DI(  1) 
C     +BH2*DI(24)   +T3*BH2P*DI(23)+T3*BH2PP*DI(22)+BH2PPP*DI(21) 

XF(7,5)  =  CH2*DI(5)+CH2S*DI(1)+BH2*DI(25)+BH2S*DI(21) 

XF(7  ,6)=T2*CH2S*DI(5)+CH2*DI(6)   +T2*BH2S*DI(25)+BH2*DI(26) 

XF(7,7)=T3*CH2S*DI(6)  +  CH2*DI(7) 
C  +T3*BH2S*DI(26)   +BH2*DI(27) 

XF(7,8)  =  CH2*DI(8)   +CH2P*DI(5)+CH2SP*DI(1)    +CH2S*DI(2) 
C     +BH2*DI(28)   +BH2P*DI(25)+BH2SP*DI(21)   +BH2S*DI(22) 

XF(7,9)=T2*CH2SP*DI(5)   +CH2P*DI(6)   +T2*CH2S*DI(8)  +  CH2*DI(9) 
C  +T2*BH2SP*DI(25)   +BH2P*DI(26)   +T2*BH2S*DI(28)   +BH2*DI(29) 

XF(7,10)  =  CH2PP*DI(5)   +T2*CH2P*DI(8)   +CH2*DI(10)   +CH2SPP 
C  *DI(1)   +CH2SP*DI(2)   +CH2SP*DI(2)   +CH2S*DI(3) 
C     +BH2PP*DI(25)   +T2*BH2P*DI(28)   +BH2*DI(30)   +BH2SPP 
C  *DI(21)   +BH2SP*DI(22)   +BH2SP*DI(22)    +BH2S*DI(23) 

DO    151    IE=1,10 
151    XF(7,IE)=XF(7,IE)+AH2*DI(10+IE)    +DH2*DI(30+IE) 

IOUT=0 

IF(  IOUT.NE.DGO   TO    103 

DO    101    IF=5,7 
101    WRITE(6,102)(XF(IF,ID)  ,ID=1,10) 
102      FORMATC    THE   H0,H1,H2'  , Dl 5.7/3D1 5.7/3D15.7/3D1 5.7// ) 
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103       CONTINUE 

RETURN 

END 

C  THE    FOLLOWING   PROGRAMS    PERFORM    INTEGRATIONS    OVER    BETA 

SUBROUTINE    INTGRT( IZ, I.M.SM1 ,SM2 ,P2 ,U,K2) 
IMPLICIT  REAL*8    (A-H.O-Z) 
REAL*8   K2 

COMMON/ SIGNPK./ SIGN 
COMMON/ INT/ DI( 40) 
PK=SIGN*DSQRT(P2*K2) 
POK=DSQRT(P2/K2) 
AM2=SM1*SM2 
C  LOCATE   SINGULARITIES 
S2=2.0DO 
S3=2.0D0 

Sl=-l.DO+(AM2-P2)/(0.5DO*K2  +PK*U) 
CA=K2/4.0D0 
CB=0.5D0*K2  +PK*U 
CC=P2+PK*U  +K2/4.0D0 
CE=AM2-K2/4.D0 
CF=K2/4.D0 
DE=  CB*  CB-4 . DO*  CA*  CC 
IF(DE.GT.O)DESQRT=DSQRT(DE) 

IF(DE.GT.0.0D0)S2=(-CB+DSQRT(DE))/(2.0D0*CA) 
IF(DE.GT.0.0D0)S3=(-CB-DSQRT(DE))/(2.0D0*CA) 
IF(Sl.LT.l.ODO.AND.Sl.GT.-l.ODO)    WRITE(6,43)    SI 

43  FORMATC    LAMBDA  HAS    A  VALUE    BETWEEN  -1    AND   1    AT   WHICH 
C  (Z-l)    GOES   TO    ZERO.    LAMDA  =' ,D15.7) 

IF(S2.LT.1.0D0.AND.S2.GT.-1.0D0)WRITE(6,44)    S2 
IF(S3.LT.1.0D0.AND.S3.GT.-1.0D0)    WRITE(6,44)    S3 

44  FORMAT( '    LAMBDA  HAS   A  VALUE    IN  THE   RANGE  -1    TO   1    WHERE 
C   Z=ZERO   ;    LAMBDA=*  .D15.7) 

BGN=-1.0D0 
WDT=2.D0 

CALL   INTGRL(IZ,I,M,SM1,SM2,P2,U,K2,BGN,1.0D0) 
IOUT=0 
62    FORMATC    THE    DI    INTEGRALS' ,3 Dl 5. 7) 

IF(IOUT.EQ.2)    WRITE(6,62)    (DI(  IR)  ,  IR=I,M) 
RETURN 
END 

SUBROUTINE      INTGRL( IZ, I,M,SM1 ,SM2 ,P2,U,K2 , BGN.EN) 
IMPLICIT  REAL*8    (A-H.O-Z) 
REAL*8   K2 

COMMON/GAUSST/XX(96) ,WX(96) 
COMMON/  INT/  D  1(40) 
DIMENSION    A(98) 
DO  300   N=I,M 
CALL  GAUSS(BGN, EN, SLOPE) 
SGAUSS=0.0D0 
DO    100    IL=1,96 
SL=XX(IL) 

A(IL)  =  FN(IZ,N,SL,SM1,SM2,P2,U,K2) 
100    SGAUSS=SGAUSS  +A(  IL)*WX(  IL) 


300    DI(N)  =  SGAUSS*SLOPE 
RETURN 
END 

SUBROUTINE    GAUSS(XMIN,XMAX, SLOPE) 
IMPLICIT   REAL*8    (A-H.O-Z) 
COMMON  /GAUSST/    XX(96), 

DIMENSION  XI(48)  ,WI(48) 

DATA  XI(1),XI(2),XI(3),XI(4),XI(5),XI(6) 

*  /.1627674484960297D-1..4881298513604973D-1, 

*  .8129749546442556D-1..1136958501106659D0, 

*  .14597371465489694D0..17809688236761860D0/ 
DATA  XI(7) ,XI(8) ,XI(9) ,XI(10) ,XI(11)  ,XI(  12) 

*  /.21003131046056720DO, .24174315616384001DO, 

*  .27319881259104914D0, .30436494435449635D0, 

*  .33520852289262542D0, .36569686147231364D0/ 
DATA  XI(13) ,XI(14) ,XI(15) ,XI(16) ,XI(17) ,XI(18) 

*  /.39579764982890860D0..42547898840730055D0, 

*  .45470942216774301D0, .48345797392059636D0, 

*  .511 694177154667 67D0, .53938810832435744DO/ 
DATA  XI(19) ,XI(20) ,XI(21) ,XI(22) ,XI(23) ,XI(24) 

*  /.56651041856139717D0,.59303236477757208D0, 

*  .61892584012546857D0, .64416340378496711D0, 

*  . 66871831004391 615D0, .69256453664217156D0/ 
DATA  XI(25) ,XI(26) ,XI(27) ,XI(28) ,XI(29) ,XI(30) 

*  /.71567681234896763D0..73803064374440013D0, 

*  .75960234117664750D0..78036904386743322D0, 

*  .80030874413914082D0,. 819400310737931 68D0/ 
DATA  XI(31) ,XI(32) ,XI(33) ,XI(34) ,XI(35) ,XI(36) 

*  /.83762351122818712D0..85495903343460146D0, 

*  .87138850590929650D0, .88689451740242042D0, 

*  .90146063531585234D0, .91507142312089807D0/ 
DATA  XI(37) ,XI(38) ,XI(39) ,XI(40) ,XI(41) ,XI(42) 

*  /.92771245672230869DO, .93937033975275522DO, 

*  .95003271778443764DO, .95968829144874254D0, 

*  .96832682846326421D0..97593917458513647DO/ 
DATA  XI(43) ,XI(44) ,XI(45) ,XI(46) ,XI(47) ,XI(48) 

*  /.98251726356301468D0..98805412632962380D0, 

*  .99254390032376262D0, .99598184298720929D0, 

*  .99836437586318168D0, .99968950388323077D0/ 
DATA  WI(1),WI(2),WI(3),WI(4),WI(5),WI(6) 

*  /.03255061449236317D0,.03251611871386884D0, 

*  .03244716371406427D0..03234382256857593D0, 

*  .03220620479403025D0, .03203445623199266D0/ 
DATA  WI(7)  ,WI(8)  ,WI(9)  ,WI(10)  ,WI(11)  ,WI(12) 

*  /. 03182875889441 101D0,. 031589330770727 17D0, 

*  .03131642559686136D0, .03101033258631384D0, 

*  .03067137612366915D0, .03029991542082759D0/ 
DATA  WI(13) ,WI(14) ,WI(15) ,WI(16) ,WI(17) ,WI(18) 

*  /.02989634413632839D0,. 0294610899581 6791  DO, 

*  .02899461415055524D0..02849741106508539D0, 

*  . 02797000761 684833D0, .02741296272602924DO/ 
DATA  WI(19) ,WI(20),WI(21) ,WI(22) , WI(23) ,WI(24) 

*  /. 026826866725591 7 6D0,. 02621234073567241  DO, 
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*  .02557003600534936D0, .02490063322248361D0 , 

*  .02420484179236469D0, .02348339908592622DO/ 
DATA  WI(25) ,WI(26) ,WI(27) ,WI(28) ,WI(29) ,WI(30) 

*  /.02273706965832937D0..02196664443874435DO, 

*  .  02 117293989219130DO,. 020356797 15433332D0, 

*  .01951908114014502D0..01866067962741147D0/ 
DATA  WI(31)  ,WI(32)  ,WI(33)  ,WI(34)  ,WI(35)  ,WI(36) 

*  /.01778250231604526D0,.01688547986424517D0, 

*  .01597056290256229D0, .01503872102699494DO, 

*  .01409094177231486D0, .01312822956696157D0/ 
DATA  WI(37) ,WI(38) ,WI(39) ,WI(40) ,WI(41) ,WI(42) 

*  /.01215160467108832D0..01116210209983850DO, 

*  .01016077053500842DO, .00914867123078339D0, 

*  .00812687692569876D0, .00709647079115386DO/ 
DATA  WI(43) ,WI(44) ,WI(45) ,WI(46) ,WI(47) ,WI(48) 

*  /.00605854550423596D0,.00501420274292752D0, 

*  .00396455433844469DO..O0291073181793495D0, 

*  .00185396078894692DO, .00079679206555201DO/ 
SL0PE=.5D0*(XMAX-XMIN) 

Y INTER= . 5D0* ( XMAX+XMIN) 

DO  40  1=1,96 

IF(I-48)10,10,20 
10  LL=49-I 

SGN=-1.D0 

GO  TO  30 
20  LL=I-48 

SGN=1.D0 
30  X=SGN*XI(LL) 

XX( I)=SLOPE*X+YINTER 
40   WX(I)=WI(LL) 

RETURN 

END 
C  THIS   PROGRAM  DEFINES   THE  VARIOUS    BETA  INTEGRALS 

FUNCTION   FN(IZ,N,S,SM1,SM2,P2,U,K2) 

IMPLICIT  REAL*8    (A-H,0-Z) 

REAL*8     K2.LOZ 

COMMON/ S IGNPK/ S IGN 

Tl=l.DO 

T2=2.D0 

T3=3.D0 

T4=4.D0 

T5=5.D0 

AM2=SM1*SM2 

PK=S IGN*DSQRT( P2*K2 ) 

P4=P2*P2 

POK=DSQRT(P2/K2) 

YU2=AM2   -(T1-S*S)*K2/T4 

X=P2  +PK*U*(T1+S)   +K2*(T1+S)*(T1+S)/T4 

Z=X/YU2 

BZ=(T1-Z) 

LOZ=DLOG(DABS(BZ)) 

DP=(T1+0.5DO*U*(T1+S)/POK)/YU2 

DPP=-0.25DO*U*(T1+S)/(YU2*P2*POK) 

DPPP=T3*U*(T1+S)/(8.DO*YU2*P4*POK) 


DU=PK*(T1+S)/YU2 

DUP=0.5D0*(T1+S)/(YU2*P0K) 

DUPP=-0.25D0*(Tl+S)/(YU2*P2*POK) 

W1=T1/Z 

W11=-T1/Z**2 

W12=T2/Z**3 

W13=-6.D0/Z**4 

W14=24.D0/Z**5 

W15=-120.D0/Z**6 

W2=(T1/Z**2)*L0Z 

W21=-W12*LOZ  +W11/BZ 

W22=-W13*L0Z  +T2*W12/BZ  +W11/BZ**2 

W23=-W14*LOZ  +T3*W13/BZ  +T3*W12/BZ**2  +T2*W11/BZ**3 

W24=-W15*LOZ  +T4*W14/BZ  +6.  D0*W13/BZ**2  +8.  D0*W12/BZ**3 
C  +6.D0*W11/BZ**4 

W3=T1/(Z*BZ) 

W31=W1/BZ**2   +W11/BZ 

W32=T2*W1/BZ**3  +T2*W11/BZ**2  +W12/BZ 

W33=6.D0*W1/BZ**4+6.D0*W11/BZ**3   +T3*W12/BZ**2 
C  +W13/BZ 

W4=W1*L0Z/YU2 

W41=W11*L0Z/YU2   -W1/BZ/YU2 

W42=W12*LOZ/YU2   -T2*W11/BZ/YU2   -W1/(BZ*BZ*YU2) 

W43=W13*LOZ/YU2     -T3*W12/BZ/YU2   -T3*W11/ 
C  (BZ*BZ*YU2)    -T2*W1/(YU2*BZ**3) 

W44=W14*LOZ/YU2   -T4*W13/BZ/YU2   -6.D0*W12/(YU2*BZ**2) 
C  -8.D0*W11/(YU2*BZ**3)    -6.D0*W1/(YU2*BZ**4) 

W5=L0Z 

W51=-T1/BZ 

W52=-T1/BZ**2 

W53=-T2/BZ**3 

W54=-6.D0/BZ**4 

IF(IZ.NE.2)    GO  TO   73 

B1=(AM2-YU2)*(-W2+YU2*W4-W1)/YU2  +W5   -W4*YU2   -W4*K2/2.DO 

B2=(AM2-YU2)*(-W21+YU2*W41-W11)/YU2  +W51    -W41*YU2   -W41* 
C  K2/2.D0 

B3=(AM2-YU2)*(-W22+YU2*W42-W12)/YU2  +W52   -W42*YU2   -W42* 
C  K2/2.D0 

B4=(AM2-YU2)*(-W23+YU2*W43-W13)/YU2  +W53  -W43*YU2  -W43* 
C  K2/2.DO 

B5=-(AM2-YU2)*(W21-YU2*W41+W11)/YU2**2 

B6=-(AM2-YU2)*(W22-YU2*W42+W12)/YU2**2 

B7=-(AM2-YU2)*(W23-YU2*W43+W13)/YU2**2 

B8=-(AM2-YU2)*(W24-YU2*W44+W14)/YU2**2 

B9=(AM2-YU2)*(W21   -YU2*W41   +W11    -W2   -W3)/YU2**2 

B10=(AM2-YU2)*(W22   -YU2*W42  +W12   -W21    -W31    )/YU2**2 

B11=(AM2-YU2)*(W23   -YU2*W43  +W13   -W22   -W32    )/YU2**2 

B12=(AM2-YU2)*(W24  -YU2*W44  +W14   -W23   -W33    )/YU2**2 

IF(N.EQ.1)FN=B1 

TF(N.EQ.2)FN=B2*DP 

IF(N.EQ.3)FN=B2*DPP  +B3*DP*DP 

IF(N.EQ.4)FN=B2*DPPP  +T3*B3*DPP*DP  +B4*DP**3 

IF(N.EQ.5)FN=B2*DU 

IF(N.EQ.6)FN=B3*DU*DU 
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IF(N.EQ.7)FN=B4*DU**3 

IF(N.EQ.8)FN=B2*DUP  +B3*DU*DP 

IF(N.EQ.9)FN=B3*DUP*DU  +B3*DU*DUP  +B4*DU*DU*DP 

IF(N.EQ.10)FN=B2*DUPP  +T2*B3*DUP*DP  +B3*DU*DPP  +B4*DU*DP**2 

IF(N.EQ.11)FN=B5 

IF(N.EQ.12)FN=B6*DP 

IF(N.EQ.13)FN=B6*DPP  +B7*DP**2 

IF(N.EQ.14)FN=B6*DPPP  +T3*B7*DPP*DP  +B8*DP**3 

IF(N.EQ.15)FN=B6*DU 

IF(N.EQ.16)FN=B7*DU**2 

IF(  N.EQ. 17 ) FN=B8*DU**3 

IF(N.EQ.18)FN=B6*DUP  +B7*DU*DP 

IF(N.EQ.19)FN=T2*B7*DUP*DU  +B8*DU*DU*DP 

IF(N.EQ.20)FN=B6*DUPP  +T2*B7*DUP*DP  +B8*DU*DP*DP 
C  +B7*DU*DPP 

IF(N.EQ.21)FN=B9 

IF(N.EQ.22)FN=B10*DP 

IF(N.EQ.23)FN=B10*DPP  +B11*DP**2 

IF(N.EQ.24)FN=B10*DPPP  +T3*B1 1*DPP*DP  +B12*DP**3 

IF(N.EQ.25)FN=B10*DU 

IF(N.EQ.26)FN=B11*DU**2 

IF(N.EQ.27) FN=B12*DU**3 

IF(N.EQ.28)FN=B10*DUP  +B11*DU*DP 

IF(N.EQ.29) FN=T2*B11*DUP*DU  +B12*DU*DU*DP 

IF(N.EQ.30)FN=B10*DUPP  +T2*B1 1*DUP*DP  +B12*DU*DP*DP 
C  +B11*DU*DPP 

RETURN 
73    CONTINUE 

IF(IZ.NE.l)    GO  TO  72 

IF(N.EQ.1)FN=(W1+W2)/YU2 

IF(N.EQ.2)FN=(W11+W21)*DP/YU2 

IF(N.EQ.3)FN=(W11+W21)*DPP/YU2  +(W12+W22)*DP*DP/YU2 

IF(N.EQ.4)FN=(W11+W21)*DPPP/YU2  +T3*(W12+W22)*DPP*DP/YU2 
C  +(W13+W23)*DP*DP*DP/YU2 

IF(N.EQ.5)FN=(W11+W21)*DU/YU2 

IF(N.EQ.6) FN=(W12+W22)*DU*DU/YU2 

IF(N.EQ.7)FN=(W13+W23)*DU*DU*DU/YU2 

IF(N.EQ.8)FN=(W11+W21)*DUP/YU2  +( W12+W22)*DP*DU/YU2 

IF(N.EQ.9)FN=(W12+W22)*DU*DUP/YU2 
C  +(W13+W23)*DP*DU*DU/YU2  +(W12+W22)*DUP*DU/YU2 

IF(N.EQ.10)FN=(W11+W21)*DUPP/YU2+(W12+W22)*DPP*DU/YU2 
C  +(W12+W22)*T2*DUP*DP/YU2  +(W13+W23)*DU*DP*DP/YU2 

RETURN 
72    CONTINUE 

IF(IZ.NE.3)GO  TO   12 

WN1=( W2 1-YU2* W4 1+W1 1 ) /YU2**2 

WN2=(W22-YU2*W42+W12)/YU2**2 

WN3= ( W23-YU2* W43+W13 ) /YU2**2 

WN4=( W24-YU2*W44+W14 ) /YU2**2 

WN5=(W2+W1)/YU2   -W4/2.DO 

WN6=(W21+W11)/YU2   -W41/2.D0 

WN7=(W22+W12)/YU2   -W42/2.D0 

WN8=(W23+W13)/YU2   -W43/2.DO 

IF(N.EQ.1)FN=WN1 


IF(N.EQ.2)FN=WN2*DP 

IF(N.EQ.3)FN=WN2*DPP  +WN3*DP**2 

IF(N.EQ.4)FN=WN2*DPPP  +T3*WN3*DPP*DP  +WN4*DP**3 

IF(N.EQ.5)FN=WN2*DU 

IF(  N.EQ.  6)  FN=WN3*DU*DU 

IF(N.EQ.7)FN=WN4*DU**3 

IF(N.EQ.8)FN=WN2*DUP  +WN3*DU*DP 

IF(N.EQ.9)FN=T2*WN3*DUP*DU  +WN4*DU*DU*DP 

IF(N.EQ.10)FN=WN2*DUPP  +T2*WN3*DUP*DP  +WN3*DU*DPP 
C  +WN4*DP*DP*DU 

IF(N.EQ.21)FN=S*(WN1) 

IF(N.EQ.22)FN=S*(WN2*DP) 

IF(N.EQ.23)FN=S*(WN2*DPP  +WN3*DP**2) 

IF(N.EQ.24)FN=S*(WN2*DPPP  +T3*WN3*DPP*DP  +WN4*DP**3) 

IF(N.EQ.25)FN=S*(WN2*DU) 

IF(N.EQ.26)FN=S*(WN3*DU*DU) 

IF(N.EQ.27)FN=S*(WN4*DU**3) 

IF(N.EQ.28)FN=S*(WN2*DUP  +WN3*DU*DP) 

IF(N.EQ.29)FN=S*(T2*WN3*DUP*DU  +WN4*DU*DU*DP) 

IF(N.EQ.30)FN=S*(WN2*DUPP  +T2*WN3*DUP*DP  +WN3*DU*DPP 
C  +WN4*DP*DP*DU) 

IF(N.EQ.31)FN=S*S*(WN1) 

IF(N.EQ.32)FN=S*S*(WN2*DP) 

IF(N.EQ.33)FN=S*S*(WN2*DPP  +WN3*DP**2) 

IF(N.EQ.34)FN=S*S*(WN2*DPPP  +T3*WN3*DPP*DP  +WN4*DP**3) 

IF(N.EQ.35)FN=S*S*(WN2*DU) 

IF(N.EQ.36)FN=S*S*(WN3*DU*DU) 

IF(N.EQ.37)FN=S*S*(WN4*DU**3) 

IF(N.EQ.38)FN=S*S*(WN2*DUP  +WN3*DU*DP) 

IF(N.EQ.39)FN=S*S*(T2*WN3*DUP*DU  +WN4*DU*DU*DP) 

IF(N.EQ.40)FN=S*S*(WN2*DUPP  +T2*WN3*DUP*DP  +WN3*DU*DPP 
C  +WN4*DU*DP*DP) 

IF(N.EQ.11)FN=WN5 

IF(N.EQ.12)FN=WN6*DP 

IF(N.EQ.13)FN=WN6*DPP  +WN7*DP**2 

IF(N.EQ.14)FN=WN6*DPPP  +T3*WN7*DPP*DP  +WN8*DP**3 

IF(N.EQ.15)FN=WN6*DU 

I F(  N.  EQ . 1 6 ) FN=WN7 * DU* DU 

IF(N.EQ.17)FN=WN8*DU**3 

IF(N.EQ.18)FN=WN6*DUP  +WN7*DU*DP 

IF(N.EQ.19)FN=T2*WN7*DUP*DU  +WN8*DU*DU*DP 

IF(N.EQ.20)FN=WN6*DUPP  +T2*WN7*DUP*DP  +WN7*DU*DPP 
C  +WN8*DU*DP*DP 

RETURN 
12    CONTINUE 

WRITE(6,87) 
87      FORMAT(*    CORRECT   VALUE    IF    IZ    IN    FNNS    NOT    FOUND') 

RETURN 

END 
:  THIS    DEFINES    THE    ELECTRON    FUNCTION   A 

FUNCTION  XA(R) 

IMPLICIT   REAL*8    (A-H.O-Z) 

COMMON/ SCALE/ SKL 

IF  (DABS(R).LT.0.1D-6)    CO   TO    1 
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SE=1.74517D-3 

SM=1.D0*SKL 

SM2=SM*SM 

XR=DABS(1.D0-R/SM2) 

XP=SE*(SM2-R)/R 

XA=-XR**XP 

XA=XA*(SKL)**(2.D0*XP) 
XA=XA*SKL 
RETURN 
1    XA=1.D0 

XA=O.ODO 
RETURN 
END 


APPENDIX  D 
CALCULATION  OF   FOUR  DIMENSIONAL   INTEGRALS 

In  the  electron  self  energy  integral,  2(p),  and  the  vacuum 
polarization  integral,  nyv;(p   ),  various  types  of  four  dimensional   inte- 
grals occur.     These  integrals  may  be  evaluated  if  a  Wick  rotation  is  made 
to  cause  the  real   axis  of  the  fourth  component  of  the  momentum  to  lie 
along  the  imaginary  axis.     This  can  be  done  by  substituting 


o.4 
p    ->  ip  . 


The  integral  can  be  performed  than  over  four  dimensional  Euclidean  space. 
Thus, 

d4p  =  dp0dp]dp2dp3  *  idp4dp]dp2dp3. 

The  momenta  variables  can  be  expressed  as  four  dimensional  hyperspherical 
coordinates  so  that, 

1  x 

p     =  r2  sin  0  cos  <J>  sin  x 

2  A 

p     =r2sin6sin$sinx 

3  x 

p     =  r2  cos   6  sin  x 

p4  =  r*  cos  X  (D-D 

2 
where  r  =  -p   .      (Hence  r  is  a   positive  quantity.)     The  Jacobian  of  this 

transformation   from  Cartesian   to   hyperspherical    coordinates   is   given   by 
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3/2   ■  0  •  2 
J  =  r    sin  e  sin  x 

The  ranges  of  integration  are, 

0  <  <j>  <  2rr 

0  <  6  <  tt 

0  <  x  <  t1 

0  <  r  <  °°  . 

In  summary,  we  can  evaluate  the  following  integral   by  an  integration 
over  the  hyperspherical   coordinates, 

|f(p2)d4p  =  i  /f(r)r3/2  sin  6  sin2x  dr  de  d*  dp.  (D-2) 


A  further  complication  occurs  when  a  second  independent  vector,  k, 
troduced.  Le1 
relating  p  do  k  is 


is  introduced.  Let  R  lie  along  the  p  axis,  then  the  angle  variable 


u  =  p9 *  k1  =  cos  X  •  (D-^ 

(P2k2)5 

We  would  like  to  consider  the  evaluation  of  integrals  which  involve 

functions  of  this  angle  variable,  as   in 


/f(p2,  u,   k2)d4p. 


Considerable  simplification  of  these  integrals   is  obtained   by  expanding 
the   integrands   in  terms  of  Gegenbauer  polynomials.     These   have  the 
following  orthogonality  relation, 


c](u)   cj,(u)    (1-u2)1  du   =§  5ab.  (D-4; 


1 
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The  first  three  Gegenbauer  polynomials  are, 


c1 

0 

=  1 

c1 

Ll 

=  2u 

1  2 

V2   =  -    1   +  4u\ 

The  higher  order  polynomials  can  be  generated  from  the  recursion  relation, 

2(l-n)u  cj   (u)    =   (2+n-l)    C^    +   (n+1)    cj+1 .  (D-5) 

The  employment  of  the  Gegenbauer  polynomials  permits  the  evaluation  of 
such  integrals  as 


Iyv  =   /f(p2)pVd4p 

=  i  /f (r)pypv  r  dr(l-u2)4  du  sin  6  df 


This  is  best  evaluated  by  components.  There  are  sixteen  possible  compo- 
nents. Consider  first, 


I11  =  i  /f(r)p1p1rdr(l-u2)4  du  sin  0  df 


/f(r)r2dr(l-u2)(l-u2)*du  sin3e  de  cos2q 


2ttj 
3 


2ttj 
3 

2 


L/f(r)r2dr(l-u2)(l-u2)du 
/f(r)r2dr(cj2  -]  c]2)  (1-u2)  "du 


4    J 


f(r)r  dr 
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Similar  steps  taken  to  evaluate  the  other  components  lead  to 
11  =  22  =  .33  =  j44 

and  also 

Ia3  =  0  when  a  f   3- 
It  follows  that 

xyv  s  gyv  y  Jf(4)2dr. 

It  is  no  more  difficult  to  evaluate  a  more  general  situation  where  f  is 
a  function  of  u  as  well  as  r.   In  this  case  the  expression  of  the  inte- 
grans  in  terms  of  the  Gegenbauer  polynomials  would  be  altered  but  the 
integration  over  u  could  be  performed  with  the  same  ease  due  to  the 
orthogonality  relations. 

There  is  one  last  useful  maneuver  that  should  be  mentioned.  In  both 

9  -     ? 

the  IT  (k  )  and  Z(p)  integrals  the  expression  (p-R)  occurs  in  the  denom- 
inators. This  expression  has  an  expansion  in  terms  of  Gegenbauer  poly- 
nomials. Let 


(p-kT2  =  -  i-   (1  -  2uz  +  z2) 


where 


r<  =  the  lesser  of  p  ,  k 

2   2 
r>  =  the  greater  of  p  ,  k  , 


Since  (1  -  2uz  +  z2)"1  -  1     C](u)zn,  we  find, 

n=0  n 
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(p-k)"2  =-77    E     Cn(u)A 
r>  n=0     n 

This  enables  one  to  evaluate  such  integrals  as, 

[f(p2,u,k2)d4p  =  -  iff(r,u,k2)     Z     d£-     rdr(l-u2)"dusin( 
J  (p-R)  l)  n=0     n  r> 

For  the  purposes  of  illustration,  consider  the  case  where  f  =  f (p  ) , 

KeX    d%  =  -iff(r)     2     c'nf-  r  dr(l-u2)"du  sin  0  d( 
(p-fc)  n=0     n  r> 


2, 


ni/f(r)   c]     I     fJ^  r  dr(l-u2)Mu 


These  methods  described  here  are  sufficient  to  calculate  any  of  the 
four  dimensional   integrals  which  appear  in  £(p)   and  ryv(k  ),  provided  that 
the  form  of  the  function  f(p2,u,k2)   is   known.     A  tabulation  of  the  inte- 
grals needed  to  calculate  the  self  energy  of  the  electron,  Z(p),  appears 
in  the  work  of  Green  et  al.28     A  tabulation  of  the  integrals  needed  to 
calculate  the  vacuum  polarization,  ryv(k2),  is  provided  in  the  work  of 
Yock. 
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